[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
1(1): (ﾜｯﾁｮｲ dbda-8BP0) 2020/08/30(日)11:55 ID:Oy/VxFsh0(1) AAS
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part67
2chｽﾚ:tech VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
2(1): (ﾜｯﾁｮｲ 06c9-1etN) 2020/08/30(日)12:04 ID:y5djTSPl0(1) AAS
IEの代わりは何使えばいいの？
3(1): (ｱｳｱｳｴｰ Sa0a-Rexm) 2020/08/30(日)12:07 ID:IcnEVpl4a(1) AAS
乙
4: (ｽｯｯﾌﾟ Sd22-WkEz) 2020/08/30(日)12:41 ID:wybDtxdZd(1) AAS
以下の特徴を持つ書き込みは無視するか罵倒されます。
・「教えて」「助けて」で始まる質問者の頭が悪いことが容易にわかる質問
・自分で考えるともせず全部作ってもらおうとする厚かましい質問
・VBA、マクロに関係ないExcelの質問
・自分のために利用するだけ利用してやろうと、後出しで条件を付け加える人
5: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)20:36 ID:Cc0wen40a(1/3) AAS
Testフォルダの中に複数のテキストファイルがあり、それぞれのテキストファイルの中身を１つのエクセルシートに取り込みたいのですが、うまくいきません。
test()をfunc()の中で使えないか考えています。
Sub fun()
Dim fso, file, files
Dim folderPath As String: folderPath = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderPath).files
For Each file In files
Dim wb As Workbook
'Set wb = Workbooks.Open(file)
省5
6: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)20:37 ID:Cc0wen40a(2/3) AAS
Sub test()
Dim folderPath As String: folderPath = "G:\Test\"
Dim textLine, fileName As String
Dim fileToOpen As Integer
Dim i As Integer
fileName = folderPath & "01.txt"
fileToOpen = FreeFile()
Open fileName For Input As fileToOpen
i = 1
While Not EOF(fileToOpen)
省5
7(2): (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/30(日)21:02 ID:Cc0wen40a(3/3) AAS
すみません。何とか事故解決しました。
もしこう書けばより良いとアドバイス頂けたら幸いです。
Sub fun()
Dim fso, file, files
Dim folderPath As String: folderPath = "G:\Test\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(folderPath).files
Dim j As Integer
For Each file In files
Dim wb As Workbook
省13
8(1): (ﾜｯﾁｮｲ 29e5-pBCo) 2020/08/30(日)22:17 ID:dZGkK/a70(1) AAS
入門レベルで横槍入れるようで申し訳ないのですが
forループ以前とループ内でのDim〜は何が違いますか？
9: (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/30(日)23:52 ID:RQLT4uuu0(1/2) AAS
>>8
違いは見やすさだけ
機能はどこに書いても同じ
マイクロソフトは最初にまとめて書けと言ってる
10(1): (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/30(日)23:59 ID:RQLT4uuu0(2/2) AAS
>>7
宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい
11(1): (ﾄﾞｺｸﾞﾛ MMca-ftwo) 2020/08/31(月)00:06 ID:SE//WJVaM(1) AAS
誰に言われるまでもなく上に全部まとめて宣言しているわ
違うプロシージャにそのままコピペで流用して使わないのは消すだけ
12(2): (ﾜｯﾁｮｲ c13d-7m6G) 2020/08/31(月)00:13 ID:TQg4kwht0(1) AAS
>>7
Cellsの前にはワークシート名書いといた方が絶対にいいよ
CodeNameでいいから前に書いときな
13(3): (ﾜｯﾁｮｲ 45cc-pyQU) 2020/08/31(月)19:07 ID:Lt7FggAF0(1/2) AAS
Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか
Dim r As Long
For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r
14: (ｱｳｱｳｳｰ Sa85-7m6G) 2020/08/31(月)19:10 ID:ZuoShitIa(1) AAS
>>13
Month関数使えば判定できるとか
15: (ｱｳｱｳｴｰ Sa0a-ifKp) 2020/08/31(月)19:11 ID:0S1gXD8ua(1) AAS
>>10
>>12
助言ありがとうございます。
16(1): (ﾜｯﾁｮｲ a5ce-xiBb) 2020/08/31(月)20:25 ID:Zj98ZIJ+0(1) AAS
>>13
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(r, 2).Value = Replace(Replace(Format(CDate(Cells(r, 1)), "ggge年mm月dd日"), "年0", "年 "), "月0", "月 ")
Next r
17: (ﾜｯﾁｮｲ 45cc-pyQU) [13] 2020/08/31(月)21:02 ID:Lt7FggAF0(2/2) AAS
>>16
ありがとうございます
18(2): (ﾗｸｯﾍﾟﾍﾟ MM66-i8JQ) 2020/09/01(火)16:02 ID:IEy7mEwuM(1) AAS
vba実行時
実行時エラー2147467259（80004005）エラーを特定できません
が出ます。
半月前は出ませんでした。
どうすれば良いでしょうか。
具体的に申しますと
pdfをテキストにコンバートする関数に
入った直後に出ます。
Dim objAcroApp As New Acrobat.AcroApp
Dim id As Long
省3
19(1): (ｱｳｱｳｸｰ MM11-1Npq) 2020/09/01(火)19:54 ID:GHp5MfoEM(1) AAS
小計シートのA列に日付があります
1.メニューシートでリストボックスを設置して、そこに小計シートのダブりを省いた日付を入れて選択できるようにしたいです
２.メニューシートの実行ボタンを押すと選択した日付の行全てを結果シートに出力したいです
どのような関数を使えば１、２を実現できるのでしょうか？
20(5): (ﾜｯﾁｮｲ 4d10-t21d) 2020/09/01(火)20:49 ID:4J5+lU0z0(1/2) AAS
神経衰弱を作っています
Image1~52を並べて全てのImageにクリックされた時の処理を記述しているのですがImageがクリックされた時の処理をひとつにまとめる方法はないでしょうか？
21: (ﾜｯﾁｮｲ 61da-1etN) 2020/09/01(火)21:43 ID:rkSCdRtt0(1/2) AAS
>>20
1つにまとめて、どこをクリックされたかは座標で特定するとか。
22(1): (ﾜｯﾁｮｲ 61da-1etN) 2020/09/01(火)21:46 ID:rkSCdRtt0(2/2) AAS
>>18
vbsでも同じエラー出る?
23: (ﾄﾞｺｸﾞﾛ MMca-yRqa) 2020/09/01(火)21:59 ID:o1zup8QpM(1) AAS
>>20
Imagename = Application.Caller
i = Mid(Imagename, 6)
あとは、Select Caseで割り振る
24: (ﾜｯﾁｮｲ 0d7c-JMbW) 2020/09/01(火)22:12 ID:0zlN/jAw0(1) AAS
>>20
マクロ登録に引数を付けるかApplication.Callerを使う
25: (ﾜｯﾁｮｲ 4d10-t21d) 2020/09/01(火)22:24 ID:4J5+lU0z0(2/2) AAS
Application.callerよさそうですね
使ってみます
ありがとうございました
26: (ﾜｯﾁｮｲ 27da-yCsQ) 2020/09/02(水)02:29 ID:wtN1DZWS0(1/2) AAS
>>19
一気に答えがで関数があると思うな
27: (ﾜｯﾁｮｲ 27da-yCsQ) 2020/09/02(水)02:29 ID:wtN1DZWS0(2/2) AAS
る
28: (ﾜｯﾁｮｲ 5f2f-q/EU) 2020/09/02(水)04:35 ID:A3FRNSa90(1) AAS
>>20
一度、VBA コントロール配列 あたりでググってみると良いかもしれない
29: (ｽﾌﾟﾌﾟ Sd7f-2VA6) 2020/09/02(水)06:20 ID:PYA1799od(1) AAS
>>20
クラス作ってWithEventsおすすめ。
30(2): (ﾜｯﾁｮｲ e710-t/Jd) 2020/09/02(水)20:49 ID:hWT8nCmb0(1) AAS
神経衰弱を作っています
カードを2枚裏返して2枚の数字が同じだった
Image1.visible = falseで2枚を非表示にしています
ゲーム途中でコマンドボタンを押すと1から13までのランダムな数字の枚数だけ裏面のカードを表にしたいのですが今のコードだと既に非表示になっているカードまで表にする対象になってしまっていて13という数字を引いても5枚しかめくれないみたいな状態になってしまいます
どうすれば既に非表示になっているカードは除いて表面にする処理ができるようになるでしょうか？
ゲーム開始直後の状態であればちゃんと引いた数字分表面にすることができています
31: (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)20:58 ID:RVYxtb8Vd(1) AAS
非表示の時は表示しなければいいのでは…
32(1): (ﾜｯﾁｮｲ 5f1f-W64q) 2020/09/02(水)21:06 ID:wVSDLDLi0(1) AAS
For i = Lbound(arr) to ubound(arr)
next i
配列の中 ファイル名*書込文字。
(0)001*abc (1)001*bca (2)001*dca (3)002*fed の様な配列の処理を
(0)で001.xlsを開いて文字書き込み
(1)開いてあるから文字書き込み
(2)同様
(3)001閉じる002開く文字書き込み
こんな感じに開いてたら閉じる。違うファイルなら閉じて新たに開くってどうしたら
いいですか？
33(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)21:08 ID:0x5o6h4cd(1/2) AAS
>>32
その処理のどの部分で躓いてんの？
34(1): (ﾄﾞｺｸﾞﾛ MM1f-th+2) 2020/09/02(水)21:43 ID:M5ACMng3M(1) AAS
>>30
If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then
35(1): (ｽﾌｯ Sd7f-7sgX) 2020/09/02(水)22:11 ID:0x5o6h4cd(2/2) AAS
>>34
それだと非表示にしたカートまで表示される
36: (ｱｳｱｳｶｰ Sa9b-vRCQ) 2020/09/02(水)22:44 ID:7eaUdZ9ha(1) AAS
>>30
表裏の切り替えできてるなら裏かつvisibleだけ処理すりゃいいと思う
上下前次1-新書関写板覧索設栞歴
あと 966 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.033s