13
票
Accepted
VBAで、True + 1 が 0 と計算されるのはなぜ?
VBAにおけるTrueは数値に変換すると1ではなく-1となります。そのためTrue + 1は0になります。
なお、Falseは0です。
7
票
Accepted
Excel VBAが度々ハングアップする
質問文の「ハングアップ」が「応答なし」を指しているのであれば、単にStart_Clickの実行時間が長すぎるのが原因です。この場合Sleep付近にDoEventsを追加すれば一応動きますが、他イベントの処理も開始されるため、例えばボタンを複数回連打できるようになるなどの弊害があります。
5
票
メッセージボックスに環境依存文字を表示させたい
VBAはUnicode化されていますが、外部API呼び出しの際には互換のために従来通りANSIバージョン(日本語環境においてはShift_JIS)が使われています。そのためShift_JISに存在しない文字は使用できません。
「非ユニコードプログラムの言語」の設定を変更する回答も挙げられていますが、全てのプログラムに影響するため、ここを変更するのはお勧めできません。
...
4
票
Accepted
親excelからShellで子excelを起動し、子excelが処理した後、親excelの処理を継続したい
Officeは従来、MDI; 親ウィンドウ内に子ウィンドウを開くスタイルでした。その後SDI; ドキュメント毎にウィンドウを開くスタイルに切り替えていきました。Excelは対応が遅れてExcel 2013でSDI化が行われました。
この際、仕様変更があり、EXCEL.EXEプロセスを起動しても既存のインスタンスにドキュメントを引き渡すようになりました。Excel ...
3
票
Accepted
VBAは二重ループがつかえないのでしょうか?
VBA でも二重ループは使えます。
誤解なさっている点が複数ありそうなので、1つずつ説明します。
For...Next ループは二重にできる
For...Next ループで使うカウンタの名前を変えれば、ループをネストさせることができます。
以下のコードは、九九表を作ります。
Sub Main
For i = 1 To 9
For j = 1 To 9
Cells(i,...
3
票
VBA SPLIT時に『ゞ』でエラーになる問題
Officeの新しめのバージョンでは、そういった問題が起きないようです。
こちらのサイト によりますと、
どうやら AC2007から持ち込まれたバグのようです。
2010/03追記: Access2010でもこのバグは解消されていないようです。
2014/04/10追記: Access2013の最新バージョンでは解消されているようです。
とのことで、...
2
票
Accepted
セルのクリックでセルを着色・脱色し、範囲選択で一括脱色したい
Exit Subとはサブルーチン(Private SubからEnd Subまでの範囲)を抜ける命令です。
If ~ Then Eixt Sub とコードを記述すると、If ~ Thenの評価がTrueの場合にWorksheet_SelectionChangeの処理からExitしてしまいます。
手元の環境ではTarget.RowがTarget.rowに書き換わる現象は再現しませんでした。
...
2
票
Accepted
エクセルの名前定義の正規表現
完全な正規表現を記述するのは諦めた方がいいと思います。
数式で名前を定義し使用する - 名前の構文規則についてに説明があります。
有効な文字 名前の最初の文字には、文字、下線 (_)、円記号 (¥) しか使用できません。最初の文字以外には、文字、数値、ピリオド、および下線を使用できます。
ヒント: 大文字と小文字の "C"、"c"、"R"、"r" は予約されているため、...
2
票
Excel VBA プロシージャの処理が終わるまで画面が固まる状況を克服したい
現状のコードを見て気になった点です。
1)DoEventsがコメントアウトされていますが、実際はアンコメントされていますよね?
2)変数W_LCntは、処理件数ということですか?
だとすると、
UserForm1.ProgressBar1.Value = W_LCnt / 100
ではなく、
UserForm1.ProgressBar1.Value = (W_LCnt / (...
2
票
逆から総和を求めるプログラムが上手くいきません
If 条件 Then
条件が真のときの処理
Else
条件が偽のときの処理
End If
IF文は上記のように条件分岐を行うので、
lX > lYの場合、lS = -1のみが実行され
その他の場合は、ElseからEnd Ifまでの処理が実行されます。
lSの値を設定するための条件分岐であれば
Else: lS = 1の次の行にEnd Ifを移動すればよいと思います。
2
票
Accepted
2
票
Word文書内の複数の文字列をイタリックに変換する方法
cubik♦さま、kunifさま、コメント頂きありがとうございました。
VBAは初めてで完全に横着して質問をしてしまったのですが、少し勉強して以下のように解決することができました。
斜体にしたい文字列のレコードをcsvで作成し、VBA上でcsvファイルの参照・一致を確認・イタリックに置換の3ステップを経ました。
なお、list.csvの中身は、1列目に"文字列1"、"...
2
票
Accepted
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....
2
票
Accepted
Excelのセルに時間を楽に入力する方法が知りたいです。
書き換える必要のある部分だけ抜き出すと多少楽かもしれません。
同シートに非表示列を作りたくなければ値だけコピーして清書用のシートに貼り付けるなど。
開始時刻(非表示セル)
作業時間(非表示セル)
表示列用関数
表示サンプル
9(手入力)
2(手入力)
=text(A1/24,"h:mm")&" ~ "&text(A1/24+B1/24,&...
2
票
Accepted
VBA 実行時のエラー コンパイルエラー(変数が定義されていません)の解決方法
wsData変数が宣言されていないのが原因ではないでしょうか。
手元の環境で下記のように書き換えたところ正常に実行できました。
Sub ボタン1_Click()
Dim ws As Worksheet
Set ws = Workbooks("test_list.xlsx").Worksheets(1)
Dim wsData As Worksheet
Set wsData = ...
2
票
C#で作ったCOM内の配列要素にアクセスができない
VBにおけるUBoundは「個数」ではなく、「添え字の最大数」です。
元のC#のコードでは「new Member[2]」(要素数2)に対して、「Member[2] = ...」というように要素数3を期待しているコードがありますが、要素数はどちらでしょうか?
要素数2が正しく、LBoundが1であれば、添え字が1と2でアクセスできる2個の配列となっているのでしょう。ぜひ、...
2
票
VBA の正規表現でマッチした文字列を後読みを使わず取り出すには?
(.*?)のように(括弧)を使ってグループ化することでSubMatchesで取り出せます。
Sub ボタン1_Click()
Dim re As RegExp
Set re = New RegExp
re.Pattern = "【(.*?)】"
Set matches = re.Execute("hoge【fuga】piyo"...
1
票
Bitnami Redmine でインストールした MySQL への VBA からの接続方法について教えてください
bitnamiからredmineをインストールとのことですが、稼働させているOSと、インストールの形態(ローカルホスト上での直接動作、ローカルホスト上にゲストOSいれての動作←OVAでの提供があるので等)の情報があると切り分けられるかと思います。
ODBCはhttpプロトコルでの接続ではないので、http://xxx.xxx.xxx.xxxではありません。
また、...
1
票
Excel Macro : Error 9, If × Countif
VBAのエラーコード 9は、”インデックスが有効範囲にありません”("Index Out of Range")というエラーです。
WorksheetFunction.CountIf(Worksheets(Unsubscribers), Range("A:A").Value
で使われている Unsubscribers は質問のコードの中で宣言されていないし、値の代入もされていませんから、その値は ...
1
票
vbaの計算式が空文字を参照と判定できますか
ワークシート関数でセルが空白であるか判定するにはISBLANKを使用すればよいです。
参照先が空白の場合、数値として扱いたくないのであればIFを併用して
Cells(2, 2).FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",RC[-1]+6)"
のように分岐することができます。
...
1
票
Accepted
1
票
Accepted
1
票
マクロVBAで「BASIC ランタイムエラー」が出てきます。何が問題でしょうか?
VBAについては詳しく知らないのですが、OpenOfficeを使っているということで、その観点から見ると
あなたが開発している言語はOpenOfficeのVBAと似た別のものらしいです。
「OpenOffice Basic」というものらしい。
もしかしたら、その環境では実行できないのかもしれません。
1
票
VBAでセルに式を埋め込むときに良い式展開の方法はないでしょうか
セルE4に数式=SUM(B4:C4)を埋め込みたいということでしょうか? この数式はExcelで広く使われているA1形式での表現形式となっていますが、この他にR1C1形式があり、こちらを使うと=SUM(RC[-3]:RC[-2])と相対アドレスが簡単に表現できるようになります。その結果、数式が固定文字列になるため
sub cells_sum
for i = 1 to sheets.count
...
1
票
VBAのセルのrange("")の式展開について
行を選択する rows()がある。
sub step_row
for i = 3 to 27 step 4
rows(i).interior.colorindex = 3
next i
end sub
しかし、行全体が選択されてしまい、止めたいところで止めれないという問題あり。
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 ...
1
票
VBEのフォントサイズを変更できない
こちらを参考に…
Office365のVBAでフォントサイズを変更できない - マイクロソフト コミュニティ
私も同じ症状でしたが解決できました。
ディスプレイの設定で「テキスト、アプリ、その他の項目サイズを変更する」を100%にいったん設定
再起動
Excelを立ち上げ、VBEのフォントサイズ設定を修正
※ここで修正できなかった場合はほかの手段が必要かもしれません。
...
Only top scored, non community-wiki answers of a minimum length are eligible
関連するタグ
vba × 180excel × 59
c# × 11
ms-access × 9
ijcad × 5
windows × 4
pdf × 4
ms-word × 4
autocad × 4
powerpoint × 4
python × 3
sql × 3
正規表現 × 3
google-apps-script × 3
dll × 3
ms-office × 3
com × 3
python3 × 2
html × 2
macos × 2
database × 2
google-chrome × 2
selenium × 2
google-spreadsheet × 2
form × 2