次のタグが付いている話題の回答:

13
承認済み

VBAで、True + 1 が 0 と計算されるのはなぜ?

VBAにおけるTrueは数値に変換すると1ではなく-1となります。そのためTrue + 1は0になります。 なお、Falseは0です。
sayuri's user avatar
  • 4.2万
7
承認済み

Excel VBAが度々ハングアップする

質問文の「ハングアップ」が「応答なし」を指しているのであれば、単にStart_Clickの実行時間が長すぎるのが原因です。この場合Sleep付近にDoEventsを追加すれば一応動きますが、他イベントの処理も開始されるため、例えばボタンを複数回連打できるようになるなどの弊害があります。
pgrho's user avatar
  • 1.4万
5

メッセージボックスに環境依存文字を表示させたい

VBAはUnicode化されていますが、外部API呼び出しの際には互換のために従来通りANSIバージョン(日本語環境においてはShift_JIS)が使われています。そのためShift_JISに存在しない文字は使用できません。 「非ユニコードプログラムの言語」の設定を変更する回答も挙げられていますが、全てのプログラムに影響するため、ここを変更するのはお勧めできません。 ...
sayuri's user avatar
  • 4.2万
4
承認済み

親excelからShellで子excelを起動し、子excelが処理した後、親excelの処理を継続したい

Officeは従来、MDI; 親ウィンドウ内に子ウィンドウを開くスタイルでした。その後SDI; ドキュメント毎にウィンドウを開くスタイルに切り替えていきました。Excelは対応が遅れてExcel 2013でSDI化が行われました。 この際、仕様変更があり、EXCEL.EXEプロセスを起動しても既存のインスタンスにドキュメントを引き渡すようになりました。Excel ...
sayuri's user avatar
  • 4.2万
3
承認済み

VBAは二重ループがつかえないのでしょうか?

VBA でも二重ループは使えます。 誤解なさっている点が複数ありそうなので、1つずつ説明します。 For...Next ループは二重にできる For...Next ループで使うカウンタの名前を変えれば、ループをネストさせることができます。 以下のコードは、九九表を作ります。 Sub Main For i = 1 To 9 For j = 1 To 9 Cells(i,...
nekketsuuu's user avatar
  • 2.3万
3

VBA SPLIT時に『ゞ』でエラーになる問題

Officeの新しめのバージョンでは、そういった問題が起きないようです。 こちらのサイト によりますと、 どうやら AC2007から持ち込まれたバグのようです。 2010/03追記: Access2010でもこのバグは解消されていないようです。 2014/04/10追記: Access2013の最新バージョンでは解消されているようです。 とのことで、...
alg's user avatar
  • 326
2
承認済み

セルのクリックでセルを着色・脱色し、範囲選択で一括脱色したい

Exit Subとはサブルーチン(Private SubからEnd Subまでの範囲)を抜ける命令です。 If ~ Then Eixt Sub とコードを記述すると、If ~ Thenの評価がTrueの場合にWorksheet_SelectionChangeの処理からExitしてしまいます。 手元の環境ではTarget.RowがTarget.rowに書き換わる現象は再現しませんでした。 ...
payaneco's user avatar
  • 1.2万
2
承認済み

エクセルの名前定義の正規表現

完全な正規表現を記述するのは諦めた方がいいと思います。 数式で名前を定義し使用する - 名前の構文規則についてに説明があります。 有効な文字 名前の最初の文字には、文字、下線 (_)、円記号 (¥) しか使用できません。最初の文字以外には、文字、数値、ピリオド、および下線を使用できます。 ヒント: 大文字と小文字の "C"、"c"、"R"、"r" は予約されているため、...
sayuri's user avatar
  • 4.2万
2

Excel VBA プロシージャの処理が終わるまで画面が固まる状況を克服したい

現状のコードを見て気になった点です。 1)DoEventsがコメントアウトされていますが、実際はアンコメントされていますよね? 2)変数W_LCntは、処理件数ということですか?  だとすると、   UserForm1.ProgressBar1.Value = W_LCnt / 100  ではなく、   UserForm1.ProgressBar1.Value = (W_LCnt / (...
iseya's user avatar
  • 46
2

逆から総和を求めるプログラムが上手くいきません

If 条件 Then 条件が真のときの処理 Else 条件が偽のときの処理 End If IF文は上記のように条件分岐を行うので、 lX > lYの場合、lS = -1のみが実行され その他の場合は、ElseからEnd Ifまでの処理が実行されます。 lSの値を設定するための条件分岐であれば Else: lS = 1の次の行にEnd Ifを移動すればよいと思います。
user13314's user avatar
  • 351
2
承認済み

関数の戻り値が正しくない

Trueのスペルが間違ってません?Tureになってる。 Testの中、もう一度確認してください
Jogenara's user avatar
  • 620
2

Word文書内の複数の文字列をイタリックに変換する方法

cubik♦さま、kunifさま、コメント頂きありがとうございました。 VBAは初めてで完全に横着して質問をしてしまったのですが、少し勉強して以下のように解決することができました。 斜体にしたい文字列のレコードをcsvで作成し、VBA上でcsvファイルの参照・一致を確認・イタリックに置換の3ステップを経ました。 なお、list.csvの中身は、1列目に"文字列1"、"...
usuim_kazk's user avatar
2
承認済み

C#で作ったCOM dll内の配列にはどのようにアクセスすればよいか

UnmanagedType.SafeArrayの例を読む限り public void GetItems(out Item[] items) この部分を public void GetItems([In, Out, MarshalAs(UnmanagedType.SafeArray)] ref Item[] items) と書くことでVBA側は Dim items As Item() app....
sayuri's user avatar
  • 4.2万
2
承認済み

Excelのセルに時間を楽に入力する方法が知りたいです。

書き換える必要のある部分だけ抜き出すと多少楽かもしれません。 同シートに非表示列を作りたくなければ値だけコピーして清書用のシートに貼り付けるなど。 開始時刻(非表示セル) 作業時間(非表示セル) 表示列用関数 表示サンプル 9(手入力) 2(手入力) =text(A1/24,"h:mm")&" ~ "&text(A1/24+B1/24,&...
RYamada's user avatar
  • 71
2
承認済み

VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法

wsData変数が宣言されていないのが原因ではないでしょうか。 手元の環境で下記のように書き換えたところ正常に実行できました。 Sub ボタン1_Click() Dim ws As Worksheet Set ws = Workbooks("test_list.xlsx").Worksheets(1) Dim wsData As Worksheet Set wsData = ...
payaneco's user avatar
  • 1.2万
2

C#で作ったCOM内の配列要素にアクセスができない

VBにおけるUBoundは「個数」ではなく、「添え字の最大数」です。 元のC#のコードでは「new Member[2]」(要素数2)に対して、「Member[2] = ...」というように要素数3を期待しているコードがありますが、要素数はどちらでしょうか? 要素数2が正しく、LBoundが1であれば、添え字が1と2でアクセスできる2個の配列となっているのでしょう。ぜひ、...
Azulean's user avatar
  • 315
2

VBA の正規表現でマッチした文字列を後読みを使わず取り出すには?

(.*?)のように(括弧)を使ってグループ化することでSubMatchesで取り出せます。 Sub ボタン1_Click() Dim re As RegExp Set re = New RegExp re.Pattern = "【(.*?)】" Set matches = re.Execute("hoge【fuga】piyo"...
payaneco's user avatar
  • 1.2万
1

Bitnami Redmine でインストールした MySQL への VBA からの接続方法について教えてください

bitnamiからredmineをインストールとのことですが、稼働させているOSと、インストールの形態(ローカルホスト上での直接動作、ローカルホスト上にゲストOSいれての動作←OVAでの提供があるので等)の情報があると切り分けられるかと思います。 ODBCはhttpプロトコルでの接続ではないので、http://xxx.xxx.xxx.xxxではありません。 また、...
あとわいと's user avatar
1

Excel Macro : Error 9, If × Countif

VBAのエラーコード 9は、”インデックスが有効範囲にありません”("Index Out of Range")というエラーです。 WorksheetFunction.CountIf(Worksheets(Unsubscribers), Range("A:A").Value で使われている Unsubscribers は質問のコードの中で宣言されていないし、値の代入もされていませんから、その値は ...
Fumu 7's user avatar
  • 4,223
1

vbaの計算式が空文字を参照と判定できますか

ワークシート関数でセルが空白であるか判定するにはISBLANKを使用すればよいです。 参照先が空白の場合、数値として扱いたくないのであればIFを併用して Cells(2, 2).FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",RC[-1]+6)" のように分岐することができます。 ...
pgrho's user avatar
  • 1.4万
1
承認済み

AutoCAD 図形を選択するVBAマクロについて

selectionSetのフィルター機能を使用してみてください。
kooooji's user avatar
  • 270
1
承認済み

AutoCAD VBAロード時の現象

システム変数taskbarの値を0にすると回避できましたので、こちらで回避されてはどうでしょうか。
Bob101's user avatar
  • 38
1

マクロVBAで「BASIC ランタイムエラー」が出てきます。何が問題でしょうか?

VBAについては詳しく知らないのですが、OpenOfficeを使っているということで、その観点から見ると あなたが開発している言語はOpenOfficeのVBAと似た別のものらしいです。 「OpenOffice Basic」というものらしい。 もしかしたら、その環境では実行できないのかもしれません。
Spalits00's user avatar
1

VBAでセルに式を埋め込むときに良い式展開の方法はないでしょうか

セルE4に数式=SUM(B4:C4)を埋め込みたいということでしょうか? この数式はExcelで広く使われているA1形式での表現形式となっていますが、この他にR1C1形式があり、こちらを使うと=SUM(RC[-3]:RC[-2])と相対アドレスが簡単に表現できるようになります。その結果、数式が固定文字列になるため sub cells_sum for i = 1 to sheets.count ...
sayuri's user avatar
  • 4.2万
1

VBAのセルのrange("")の式展開について

行を選択する rows()がある。 sub step_row for i = 3 to 27 step 4 rows(i).interior.colorindex = 3 next i end sub しかし、行全体が選択されてしまい、止めたいところで止めれないという問題あり。
matomebutai's user avatar
1

VBA エクセルのデータベース化

ざくっとですが、以下のような感じです。 エクセルに二つシートを作成して、1枚目にデータを入力してください。 2枚目に結果が出力されます。 Sub convert() Dim inputWS As Worksheet Dim outputWS As Worksheet Dim year As String Dim id As String Dim name As String Dim num ...
user17014's user avatar
  • 1,429
1

VBEのフォントサイズを変更できない

こちらを参考に… Office365のVBAでフォントサイズを変更できない - マイクロソフト コミュニティ 私も同じ症状でしたが解決できました。 ディスプレイの設定で「テキスト、アプリ、その他の項目サイズを変更する」を100%にいったん設定 再起動 Excelを立ち上げ、VBEのフォントサイズ設定を修正  ※ここで修正できなかった場合はほかの手段が必要かもしれません。 ...
user28184's user avatar

Only top scored, non community-wiki answers of a minimum length are eligible