Quantcast
Channel: OKWAVE 最新質問(Visual Basic/257)【本日】
Browsing all 7264 articles
Browse latest View live

EXCEL2007マクロ/オートフィルについて

VBA初心者です。 EXCEL2007でオートフィルのマクロを作ったのですが、下記のケースで困っています。 A列のデータが入っている行までB列のデータをオートフィルで入力したく、 A列の最終行からデータが入っている行までを求めてB列のデータをオートフィルで入れるため、下記のマクロを設定しました。 Sub test()   Range("B1").AutoFill...

View Article


Excel VBS、ADODB.Streamで改行

助けてください。 Excel VBAでテキストファイル出力をしているのですが、改行をどのように書き込めばいいのかわかりません。 ネットで調べても、改行コードを設定できる情報ばかりで、改行自体を書き入れる方法がわかりませんでした。 \n \r\n などと入力しても文字列としてそのまま出力されていまいます。 Windows 7 64 bit Excel 2007 書き出すファイルが UTF-8...

View Article


Excelでのセル操作について

お世話になります。 以下の2点について、ご教授願います。 【(1)】 エクセルのシート上でセル(A1)をリストにし1~3という数字を選択できるようにしています。 そこで、1を選択した際にはB列を非表示、2を選択した際にはC列を非表示、3の場合はD というようなマクロは組めるのでしょうか? 【(2)】 セル(A1:Z46)をダブルクリックした際に"○"を入力し、...

View Article

Excel VBA セル範囲の選択方法について

VBAのソースで、「集計バックアップ」と名前を付けた範囲を選択したいのですが、「Worksheets("記録表").Range("集計バックアップ").Select」と記述するとエラー1004が出ます。 構文的に何か問題があるのでしょうか?

View Article

VBAマクロでエラーで進まない

現在、開いてるファイルを一部加工してA1セルデーターをファイル名にして同じフォルダーに保存したいのですが「参照が不正または不完全」とエラーメッセージが出ます。教えて下さい。 Application.DisplayAlerts=True .SaveCopyAs.Path & "¥" & .Worksheet("依頼").Range("A1").Value & ".xls"...

View Article


html要素の取得

VBを使いhtmlの要素からhtml上の値を取得したいのですが GMM.COMの為替の値の取得の仕方がわかりません。。 どなたか知識のある方ご教示下さい。

View Article

AUTOCADVBA:64bitOSの属性位置取得

こんにちは、AutoCADのVBAでブロック内の属性値の位置を取得するプログラムを組んでいたのですが、 32bitOSのXPで動いていたプログラムが、64bitの7だと動きません。 問題のプログラムコードは insertionPoint です。 最初はGetAttributesメソッドを使ってvariant型の配列に属性値を格納しました。 しかし、これを実行すると、 「実行時エラー...

View Article

MsgBox

MsgBoxで、""文字だけだなく、デバッガのイミディエイトウィンドウで使用する変数値をみる為の?、Lenなどを使用する方法はございますか? 参考になるサイトなどございましたら教えてください。

View Article


「エクセルファイルが開いていたら開かない」としたい

「エクセルファイルが開いていたら開かない」としたいです。 VB2010です。 -------------------------------------------------------------- Imports Microsoft.Office.Interop '参照設定済み Module Module1 Sub ExcelOpen() Dim ExcApp As...

View Article


コントロールのグループ化

VBってコントロールのグループ化はできますか? ラベルとテキストボックスをくっつけて、一緒に移動できるようにしたいのですが どこからグループ化すればいいかわかりません。 CTRLボタンを押しながら、二つのコントロールをクリックするところまでは出来ました!

View Article

縦に不規則に並ぶ表から特定文字列をカウントしたい。

縦に不規則に並ぶ表から特定文字列をカウントしたい。 Sheet1の縦に日付ごとに並んだ表から、 Sheet2へ特定文字列のカウント結果を表に起こしたいです。 日付ごとグループごとに項目数が異なるので、 どのようにセルを選択し、カウントすればいいのかわからず、 困っております。。 質問内容を分かりやすく画像に纏めましたので、 お手数ですがどうか見て下さい!! どうかよろしくお願いいたします。><!

View Article

縦に並んでいる表をマクロで横に並び替えたい。

以下のような縦に並んだ表を、 (A列には、日付/NO、B列には文字列が入力されています。)    A      B  ------------- 1 │ 10月1日   2 │NO      3 │1      A 4 │2      B 5 │3      C 6 │10月2日 7 │NO 8 │1      D 9 │2      E 10│3      F 11│4      G 12│5...

View Article

印刷プレビュー表示後ユーザーフォームが閉じません。

 下記のコードで印刷プレビューが表示された後,UserForm3が閉じるようにしてありましたができなくなりました。プレビューの閉じるボタンをクリックするとUserForm3一緒に閉じます。解決策がありましたらお願いします。勉強不足でわかりませんので。 Sub 印刷範囲() Application.ScreenUpdating = False Dim ret As Integer ret =...

View Article


処理終了後のに砂時計が、クリックしないと矢印に

 高速処理ができるようにしたのはいいのですが、マウスポインタの砂時計がクリックしないと矢印に戻りません。自分のパソコンでは、クリックしないで戻るのですが。会社のパソコンだとできません。スッペクの良し悪しなのか、スペックに関係なくクリックしないで矢印に戻る解決方法があればお願いします。(コードは下記です。) Windows7 Office2010 Private Sub 定義の書込_Click()...

View Article

Excel VBA Interior.Color

困っています。よろしくお願いします。 以下のマクロで、 値として「薄緑」(13172680)を入力したのに、その値が勝手に変わってしまいます。 13434828になってってしまいます。そのため、「色消し」が働きません。...

View Article


他シートのセルを比較する方法

題名記載の詳細を以下に記します (状態)  シート1   →比較対象  シート2   →セルに記載した内容はシート1と比較して列行がバラバラ (困っている点)  上記状態の2つのシートを、マクロで比較させて、条件が不一致のセルの色(何色でも)を変化させようと考えています ただ、どうもうまくいかず有識者の知識をお借りしたいと思い投稿しました...

View Article

VBAで別モジュールへの変数の受け渡し方法

初歩的な質問で申し訳ありません、 googleでもどのように検索してよいのかわからないので教えてください。 Userformにて作成したコード内にhogehogeという変数を宣言したとします。 これをPublic Sub CommandButton1_Click()内でhogehogeに文字列abcを代入します。 そしてcall を使ってmodule1の処理を行うのですが、...

View Article


変数を配列に格納する時に、二つの条件を指定すること

変数を配列に格納する時に、二つの条件を指定することはできますか? VBAです。 Private Sub test() Dim i As Long Dim Str As String Dim tmp As Variant Str = "a,i,u-e-o" tmp = Split(Str, ",") '配列に格納する For i = LBound(tmp) To UBound(tmp)...

View Article

ExcelVBマクロ

新年度Aというフォルダー内にあるbook2012.xlsを開き一部データー入力の上、表操作したものを 別名のファイルで同じフォルダー内に保存する方法を教えてください。 book2012.xlsには「報告」「管理」というシートが2つあります。 (1)「報告」シートを非表示にし、「管理」シート上のA1セル内容をファイル名にして保存。...

View Article

Replace関数 大文字小文字を区別したい

エクセルVBAについて質問いたします。 Sub test23() Dim 文字列 As String 文字列 = "Aa" Debug.Print Replace(文字列, "A", "b") End Sub を実行すると戻り値は、bbなのですが、大文字小文字を認識して置換する方法はありますか? 上記の例で例えるのなら、「A」なら「B」に置換したいので...

View Article
Browsing all 7264 articles
Browse latest View live


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>