Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

124 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【80001】Re:SendMessageで全角文字を書き込むには

よろずや - 18/6/15(金) 19:24 -


	引用なし

	パスワード

▼山田さん：
>>EnumChildWindows を使って Debug.Print して探しましょう。
>
>EnumChildWindowsにウィンドウのハンドルを渡して探しましたが取得できませんでした。
>コールバック関数の中にDebug.Printを入れましたが、一度もコールバック関数が呼び出されていないようです。

ウィンドウが無いのかもしれませんね。
（例えば、ACCESSのフォームだとフォーカスの当たったコントロールのみがウィンドウを持ち、フォーカスが当たってないコントロールはウィンドウではない。）

・ツリー全体表示


	【80000】Re:ダイアログの操作

教えて欲しい人 - 18/6/15(金) 17:58 -


	引用なし

	パスワード

VBAからBook2を開き、下記のコードを実行するとTest2という
マクロが実行されダイアログが表示されます。

Application.Run "Book2!Test2"

このダイアログに、保存先、ファイル名をVBAで指定できたらと思っています。

よろしくお願いいたします。

・ツリー全体表示


	【79999】Re:ダイアログの操作

よろずや - 18/6/15(金) 16:00 -


	引用なし

	パスワード

＞マクロを実行しファイル保存ダイアログが表示されます。
その部分のマクロを見せてください。

・ツリー全体表示


	【79998】ダイアログの操作

教えて欲しい人 - 18/6/15(金) 14:55 -


	引用なし

	パスワード

あるExcelファイルのVBA操作で別のExcelでマクロを実行し
ファイル保存ダイアログが表示されます。
そのダイアログにパスとファイル名を指定して実行したいです。
どのようにしたらできますか？

・ツリー全体表示


	【79997】Re:Workbooks.Closeで閉じない

ねむ - 18/6/14(木) 20:22 -


	引用なし

	パスワード

なるほど、そういう仕様があったのですね。
ご提示いただいたontimeを使う方法でいけました！
ありがとうございました。

・ツリー全体表示


	【79996】Re:Workbooks.Closeで閉じない

よろずや - 18/6/13(水) 22:40 -


	引用なし

	パスワード

ht tp://yiaowang.web.fc2.com/programing/vba_xls_tips/workbook_open.html

OnTime でCloseするのがよろしいかと。

・ツリー全体表示


	【79995】Re:SendMessageで全角文字を書き込むには

山田 - 18/6/13(水) 22:02 -


	引用なし

	パスワード

>EnumChildWindows を使って Debug.Print して探しましょう。

EnumChildWindowsにウィンドウのハンドルを渡して探しましたが取得できませんでした。
コールバック関数の中にDebug.Printを入れましたが、一度もコールバック関数が呼び出されていないようです。

・ツリー全体表示


	【79994】Workbooks.Closeで閉じない

ねむ - 18/6/13(水) 21:36 -


	引用なし

	パスワード

こんばんわ
質問させていただきます

「起動.xlsm」「処理.xlsm」の2つのファイルを作りました

「起動.xlsm」のThisWorkbook内には

Private Sub Workbook_Open()

　　Workbooks.Open Filename:=ThisWorkbook.Path & "\処理.xlsm", ReadOnly:=True

End Sub

という記述をし、

「処理.xlsm」のThisWorkbook内には

Private Sub Workbook_Open()

　　Workbooks("起動.xlsm").Close
　　Workbooks("処理.xlsm").Close savechanges:=False
　　
End Sub

と記述しました。

しかし「起動.xlsm」を開いても、「処理.xlsm」が閉じてくれずに開いたままになってしまいます。
これを、閉じるようにするにはどのように記述すればよいでしょうか。

よろしくお願いいたします。

・ツリー全体表示


	【79993】Re:エラーが出てしまいます。どこを修正...

KAZUE - 18/6/13(水) 17:19 -


	引用なし

	パスワード

会社で試してみました！
できました！　ありがとうございます。
また、何かあったときに、よろしくお願いします。

>▼よろずやさん：
>>▼KAZUE さん：
>>>'小計
>>>　With sh2　 ←ここにいれてみました
>>>　Dim r As Range
>>>
>>>こうすると
>>>コンパイルエラー　End With が必要です。
>>
>>End With は、入れ子にできます。
>>入れてください。
>>入れたら、sh2 を参照したい部分の頭にピリオドを追記しましょう。

・ツリー全体表示


	【79992】Re:エラーが出てしまいます。どこを修正...

KAZUE - 18/6/13(水) 8:37 -


	引用なし

	パスワード

ありがとうございます。
今から会社に行って試してみます。

また、結果を後程書き込みます。

▼よろずやさん：
>▼KAZUE さん：
>>'小計
>>　With sh2　 ←ここにいれてみました
>>　Dim r As Range
>>
>>こうすると
>>コンパイルエラー　End With が必要です。
>
>End With は、入れ子にできます。
>入れてください。
>入れたら、sh2 を参照したい部分の頭にピリオドを追記しましょう。

・ツリー全体表示


	【79991】Re:SendMessageで全角文字を書き込むには

よろずや - 18/6/12(火) 13:02 -


	引用なし

	パスワード

▼山田さん：
>FindWindowExでテキストボックスを探そうとしましたがうまくいきません。
>クラス名"Edit"では見つかりませんでした。
>クラス名がわからないテキストボックスのハンドルを取得するにはどうしたらいいでしょうか。

EnumChildWindows を使って Debug.Print して探しましょう。

・ツリー全体表示


	【79990】Re:エラーが出てしまいます。どこを修正...

よろずや - 18/6/12(火) 12:57 -


	引用なし

	パスワード

▼KAZUE さん：
>'小計
>　With sh2　 ←ここにいれてみました
>　Dim r As Range
>
>こうすると
>コンパイルエラー　End With が必要です。

End With は、入れ子にできます。
入れてください。
入れたら、sh2 を参照したい部分の頭にピリオドを追記しましょう。

・ツリー全体表示


	【79989】Re:エラーが出てしまいます。どこを修正...

KAZUE - 18/6/12(火) 9:21 -


	引用なし

	パスワード

▼よろずやさん：

すみません。よろしくお願いします。

'小計
　With sh2　 ←ここにいれてみました
　Dim r As Range

こうすると
コンパイルエラー　End With が必要です。

と出てしまい、'小計の一番下に入っているので
困ってます。

・ツリー全体表示


	【79988】Re:エラーが出てしまいます。どこを修正...

よろずや - 18/6/12(火) 8:27 -


	引用なし

	パスワード

＞シートの指定で「With sh2」と入れると
どこにどう入れたのですか？

・ツリー全体表示


	【79987】Re:行の表示非表示

ACE - 18/6/12(火) 7:02 -


	引用なし

	パスワード

▼γ さん：

ばっちりでした。
ありがとうございました。

・ツリー全体表示


	【79986】Re:エラーが出てしまいます。どこを修正...

KAZUE - 18/6/12(火) 5:56 -


	引用なし

	パスワード

▼マナさん：
早速ありがとうございます。

r(i, 3) と r(i, 5)にカーソルを合わせると
確かに文字が表示されるのですが、実際にExcelの
画面では数値なので、そこも不明な事と、
シートの指定で「With sh2」と入れると
これもエラーになってしまってどこをどうしていいのか
困り果てている状況です。

ここで教えていただくのに
不足している物が何かありますでしょうか。

本当に初心者ですみません。

・ツリー全体表示


	【79985】Re:行の表示非表示

γ - 18/6/12(火) 5:17 -


	引用なし

	パスワード

For i = 11 To 160 Step 3
としてみては？

・ツリー全体表示


	【79984】行の表示非表示

ACE - 18/6/11(月) 23:41 -


	引用なし

	パスワード

行の表示非表示で質問です。

H11:J13,H14:J16,H17:J19,H20:J22・・・H158:J160の3行毎の結合セルです。

H11が空白なら11行から13行が非表示、空白でなければ表示
H14が空白なら14行から16行が非表示、空白でなければ表示
H17が空白なら17行から19行が非表示、空白でなければ表示

この処理をH158まで行いたいのですがうまくいきません。

コードのどこを修正すれば良いのでしょうか？
どなたか教えて下さいませ。

以下コードです。

Private Sub Worksheet_Activate()
　Dim i As Long　
　For i = 11 To 160
　　If Cells(i, 8) = "" Then
　　　Rows(i & ":" & i + 2).Hidden = True
　　Else
　　　Rows(i & ":" & i + 2).Hidden = False
　　End If
　Next
End Sub

・ツリー全体表示


	【79983】Re:エラーが出てしまいます。どこを修正...

マナ - 18/6/11(月) 21:46 -


	引用なし

	パスワード

▼KAZUE さん：

>「 '小計」の部分の「 r(i, 6) = r(i, 3) * r(i, 5)」まで来ると
>実行時エラー１３　型が一致しません。と出てしまいます。

r(i, 3) と r(i, 5)には何が入っているか
確認してみましたか。

ところで、関係ないかもしれませんが
小計のブロックだけ、シートが指定されていませんが大丈夫でしょうか。

> '小計
> Dim r As Range
> Range("C2").Resize(2).ClearContents
> With Range("B12", Cells(Rows.Count, "B").End(xlUp))

・ツリー全体表示


	【79982】Re:SendMessageで全角文字を書き込むには

山田 - 18/6/11(月) 21:41 -


	引用なし

	パスワード

FindWindowExでテキストボックスを探そうとしましたがうまくいきません。
クラス名"Edit"では見つかりませんでした。
クラス名がわからないテキストボックスのハンドルを取得するにはどうしたらいいでしょうか。

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

124 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free