[過去ﾛｸﾞ]
Excel VBA 質問スレ Part68 (1002ﾚｽ)
Excel VBA 質問スレ Part68 http://mevius.5ch.net/test/read.cgi/tech/1598756127/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
1: デフォルトの名無しさん (ﾜｯﾁｮｲ dbda-8BP0) [] 2020/08/30(日) 11:55:27 ID:Oy/VxFsh0 !extend:checked:vvvvv:1000:512 ↑同じ内容を2行貼り付ける ExcelのVBAに関する質問スレです コード書き込みや作成依頼もOK ※前スレ Excel VBA 質問スレ Part67 https://mevius.5ch.net/test/read.cgi/tech/1593104489/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured http://mevius.5ch.net/test/read.cgi/tech/1598756127/1
2: デフォルトの名無しさん (ﾜｯﾁｮｲ 06c9-1etN) [sage] 2020/08/30(日) 12:04:22 ID:y5djTSPl0 IEの代わりは何使えばいいの？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/2
3: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-Rexm) [sage] 2020/08/30(日) 12:07:17 ID:IcnEVpl4a 乙 http://mevius.5ch.net/test/read.cgi/tech/1598756127/3
4: デフォルトの名無しさん (ｽｯｯﾌﾟ Sd22-WkEz) [] 2020/08/30(日) 12:41:50 ID:wybDtxdZd 以下の特徴を持つ書き込みは無視するか罵倒されます。 ・「教えて」「助けて」で始まる質問者の頭が悪いことが容易にわかる質問 ・自分で考えるともせず全部作ってもらおうとする厚かましい質問 ・VBA、マクロに関係ないExcelの質問 ・自分のために利用するだけ利用してやろうと、後出しで条件を付け加える人 http://mevius.5ch.net/test/read.cgi/tech/1598756127/4
5: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) [] 2020/08/30(日) 20:36:42 ID:Cc0wen40a 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) Dim ts As Object Set ts = fso.OpenTextFile(file, ForReading) 'Call wb.Close(SaveChanges:=False) Next file End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/5
6: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) [] 2020/08/30(日) 20:37:09 ID:Cc0wen40a 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) Line Input #fileToOpen, textLine Cells(1, i).Value = textLine i = i + 1 Wend End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/6
7: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) [] 2020/08/30(日) 21:02:31 ID:Cc0wen40a すみません。何とか事故解決しました。 もしこう書けばより良いとアドバイス頂けたら幸いです。 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 'Set wb = Workbooks.Open(file) Dim ts As Object Set ts = fso.OpenTextFile(file) Dim i As Integer: i = 1 j = j + 1 Do Until ts.AtEndOfStream Cells(j, i).Value = ts.ReadLine i = i + 1 Loop ts.Close 'Call wb.Close(SaveChanges:=False) Next file End Sub http://mevius.5ch.net/test/read.cgi/tech/1598756127/7
8: デフォルトの名無しさん (ﾜｯﾁｮｲ 29e5-pBCo) [sage] 2020/08/30(日) 22:17:56 ID:dZGkK/a70 入門レベルで横槍入れるようで申し訳ないのですが forループ以前とループ内でのDim〜は何が違いますか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/8
9: デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) [sage] 2020/08/30(日) 23:52:40 ID:RQLT4uuu0 >>8 違いは見やすさだけ 機能はどこに書いても同じ マイクロソフトは最初にまとめて書けと言ってる http://mevius.5ch.net/test/read.cgi/tech/1598756127/9
10: デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) [sage] 2020/08/30(日) 23:59:24 ID:RQLT4uuu0 >>7 宣言と初期化を一度に書きたくなる気持ちはわかるけど、マルチステートメントはやめた方がいい http://mevius.5ch.net/test/read.cgi/tech/1598756127/10
11: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMca-ftwo) [] 2020/08/31(月) 00:06:45 ID:SE//WJVaM 誰に言われるまでもなく上に全部まとめて宣言しているわ 違うプロシージャにそのままコピペで流用して使わないのは消すだけ http://mevius.5ch.net/test/read.cgi/tech/1598756127/11
12: デフォルトの名無しさん (ﾜｯﾁｮｲ c13d-7m6G) [sage] 2020/08/31(月) 00:13:33 ID:TQg4kwht0 >>7 Cellsの前にはワークシート名書いといた方が絶対にいいよ CodeNameでいいから前に書いときな http://mevius.5ch.net/test/read.cgi/tech/1598756127/12
13: デフォルトの名無しさん (ﾜｯﾁｮｲ 45cc-pyQU) [sage] 2020/08/31(月) 19:07:17 ID:Lt7FggAF0 Ｂ列に"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 http://mevius.5ch.net/test/read.cgi/tech/1598756127/13
14: デフォルトの名無しさん (ｱｳｱｳｳｰ Sa85-7m6G) [sage] 2020/08/31(月) 19:10:36 ID:ZuoShitIa >>13 Month関数使えば判定できるとか http://mevius.5ch.net/test/read.cgi/tech/1598756127/14
15: デフォルトの名無しさん (ｱｳｱｳｴｰ Sa0a-ifKp) [] 2020/08/31(月) 19:11:34 ID:0S1gXD8ua >>10 >>12 助言ありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/15
16: デフォルトの名無しさん (ﾜｯﾁｮｲ a5ce-xiBb) [sage] 2020/08/31(月) 20:25:23 ID:Zj98ZIJ+0 >>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 http://mevius.5ch.net/test/read.cgi/tech/1598756127/16
17: デフォルトの名無しさん (ﾜｯﾁｮｲ 45cc-pyQU) [13] 2020/08/31(月) 21:02:20 ID:Lt7FggAF0 >>16 ありがとうございます http://mevius.5ch.net/test/read.cgi/tech/1598756127/17
18: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM66-i8JQ) [sage] 2020/09/01(火) 16:02:43 ID:IEy7mEwuM vba実行時 実行時エラー2147467259（80004005）エラーを特定できません が出ます。 半月前は出ませんでした。 どうすれば良いでしょうか。 具体的に申しますと pdfをテキストにコンバートする関数に 入った直後に出ます。 Dim objAcroApp As New Acrobat.AcroApp Dim id As Long id=objAcroApp.Show←ここで出ます 事情がありスマホで手打ちしました。 見苦しくすみませんがよろしくお願い申し上げます http://mevius.5ch.net/test/read.cgi/tech/1598756127/18
19: デフォルトの名無しさん (ｱｳｱｳｸｰ MM11-1Npq) [sage] 2020/09/01(火) 19:54:21 ID:GHp5MfoEM 小計シートのA列に日付があります 1.メニューシートでリストボックスを設置して、そこに小計シートのダブりを省いた日付を入れて選択できるようにしたいです ２.メニューシートの実行ボタンを押すと選択した日付の行全てを結果シートに出力したいです どのような関数を使えば１、２を実現できるのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/19
20: デフォルトの名無しさん (ﾜｯﾁｮｲ 4d10-t21d) [] 2020/09/01(火) 20:49:46 ID:4J5+lU0z0 神経衰弱を作っています Image1~52を並べて全てのImageにクリックされた時の処理を記述しているのですがImageがクリックされた時の処理をひとつにまとめる方法はないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/20
21: デフォルトの名無しさん (ﾜｯﾁｮｲ 61da-1etN) [sage] 2020/09/01(火) 21:43:46 ID:rkSCdRtt0 >>20 1つにまとめて、どこをクリックされたかは座標で特定するとか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/21
22: デフォルトの名無しさん (ﾜｯﾁｮｲ 61da-1etN) [sage] 2020/09/01(火) 21:46:04 ID:rkSCdRtt0 >>18 vbsでも同じエラー出る? http://mevius.5ch.net/test/read.cgi/tech/1598756127/22
23: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMca-yRqa) [] 2020/09/01(火) 21:59:11 ID:o1zup8QpM >>20 Imagename = Application.Caller i = Mid(Imagename, 6) あとは、Select Caseで割り振る http://mevius.5ch.net/test/read.cgi/tech/1598756127/23
24: デフォルトの名無しさん (ﾜｯﾁｮｲ 0d7c-JMbW) [sage] 2020/09/01(火) 22:12:33 ID:0zlN/jAw0 >>20 マクロ登録に引数を付けるかApplication.Callerを使う http://mevius.5ch.net/test/read.cgi/tech/1598756127/24
25: デフォルトの名無しさん (ﾜｯﾁｮｲ 4d10-t21d) [] 2020/09/01(火) 22:24:18 ID:4J5+lU0z0 Application.callerよさそうですね 使ってみます ありがとうございました http://mevius.5ch.net/test/read.cgi/tech/1598756127/25
26: デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-yCsQ) [sage] 2020/09/02(水) 02:29:09 ID:wtN1DZWS0 >>19 一気に答えがで関数があると思うな http://mevius.5ch.net/test/read.cgi/tech/1598756127/26
27: デフォルトの名無しさん (ﾜｯﾁｮｲ 27da-yCsQ) [sage] 2020/09/02(水) 02:29:31 ID:wtN1DZWS0 る http://mevius.5ch.net/test/read.cgi/tech/1598756127/27
28: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f2f-q/EU) [sage] 2020/09/02(水) 04:35:56 ID:A3FRNSa90 >>20 一度、VBA コントロール配列 あたりでググってみると良いかもしれない http://mevius.5ch.net/test/read.cgi/tech/1598756127/28
29: デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sd7f-2VA6) [sage] 2020/09/02(水) 06:20:17 ID:PYA1799od >>20 クラス作ってWithEventsおすすめ。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/29
30: デフォルトの名無しさん (ﾜｯﾁｮｲ e710-t/Jd) [] 2020/09/02(水) 20:49:21 ID:hWT8nCmb0 神経衰弱を作っています カードを2枚裏返して2枚の数字が同じだった Image1.visible = falseで2枚を非表示にしています ゲーム途中でコマンドボタンを押すと1から13までのランダムな数字の枚数だけ裏面のカードを表にしたいのですが今のコードだと既に非表示になっているカードまで表にする対象になってしまっていて13という数字を引いても5枚しかめくれないみたいな状態になってしまいます どうすれば既に非表示になっているカードは除いて表面にする処理ができるようになるでしょうか？ ゲーム開始直後の状態であればちゃんと引いた数字分表面にすることができています http://mevius.5ch.net/test/read.cgi/tech/1598756127/30
31: デフォルトの名無しさん (ｽﾌｯ Sd7f-7sgX) [sage] 2020/09/02(水) 20:58:13 ID:RVYxtb8Vd 非表示の時は表示しなければいいのでは… http://mevius.5ch.net/test/read.cgi/tech/1598756127/31
32: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f1f-W64q) [sage] 2020/09/02(水) 21:06:16 ID:wVSDLDLi0 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開く文字書き込み こんな感じに開いてたら閉じる。違うファイルなら閉じて新たに開くってどうしたら いいですか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/32
33: デフォルトの名無しさん (ｽﾌｯ Sd7f-7sgX) [sage] 2020/09/02(水) 21:08:43 ID:0x5o6h4cd >>32 その処理のどの部分で躓いてんの？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/33
34: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1f-th+2) [] 2020/09/02(水) 21:43:27 ID:M5ACMng3M >>30 If Worksheets(シート名).Shapes("Image" & カード番号).Visible = False Then http://mevius.5ch.net/test/read.cgi/tech/1598756127/34
35: デフォルトの名無しさん (ｽﾌｯ Sd7f-7sgX) [sage] 2020/09/02(水) 22:11:52 ID:0x5o6h4cd >>34 それだと非表示にしたカートまで表示される http://mevius.5ch.net/test/read.cgi/tech/1598756127/35
36: デフォルトの名無しさん (ｱｳｱｳｶｰ Sa9b-vRCQ) [sage] 2020/09/02(水) 22:44:34 ID:7eaUdZ9ha >>30 表裏の切り替えできてるなら裏かつvisibleだけ処理すりゃいいと思う http://mevius.5ch.net/test/read.cgi/tech/1598756127/36
37: デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1f-aCGe) [] 2020/09/02(水) 23:26:58 ID:CEKOaVwIM >>35 じゃあ、trueに変えればいいじゃん http://mevius.5ch.net/test/read.cgi/tech/1598756127/37
38: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f63-3NJ+) [] 2020/09/02(水) 23:43:34 ID:4SR2iB8C0 >>22 sはこれでエラーが出ませんでしたが これでテストになっているのか疑問です。。(acrobatを操作しているように見えない Sub ConvertFile() Dim objAcroApp Dim objAcroAVDoc Dim objAcroPDDoc Dim id Dim js Dim SaveName id = objAcroApp.Show id = objAcroAVDoc.Open("PDFへのパス", "") ちなみに>>18のソースを本日数度起動してみたところ 1回だけ動作成功しましたww プログラム以外のところに原因があるんでしょうか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/38
39: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f63-3NJ+) [sage] 2020/09/02(水) 23:44:24 ID:4SR2iB8C0 sはこれでエラーが出ませんでしたが ↓ vbsは・・・ です。失礼しました。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/39
40: デフォルトの名無しさん (ｽﾌｯ Sd7f-7sgX) [sage] 2020/09/02(水) 23:59:58 ID:86SCKcxdd >>37 カードの非表示状態を管理するなりしないと単純にvisibleだけ見ても意味ないよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/40
41: デフォルトの名無しさん (ｽﾌﾟｯｯ Sdff-W64q) [sage] 2020/09/03(木) 07:25:12 ID:VXBXo8cBd >>33 次のファイルが同一ならそのままで、違うファイルなら閉じて開くの処理の仕方が分かりません。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/41
42: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) [] 2020/09/03(木) 09:49:18 ID:8vHUVo2kM >>40 visibleプロパティで管理してるんだから問題ないだろ 13回選んで4回裏が出たら17回選べばいいんだよ http://mevius.5ch.net/test/read.cgi/tech/1598756127/42
43: デフォルトの名無しさん (ﾜｯﾁｮｲ 5f80-uomc) [sage] 2020/09/03(木) 10:06:52 ID:wpeUBEOu0 >>41 ファイル名保持して、ファイル名が同一ならそのまま、違ったら閉じて開くだけ？isbookopen使うとか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/43
44: デフォルトの名無しさん (ﾜｯﾁｮｲ c7da-XrX+) [sage] 2020/09/03(木) 20:23:29 ID:xDfSE2i10 >>38 CreateObject("AcroExch.App") CreateObject("AcroExch.PDDoc") しなきゃダメなんじゃ・・。 そういう問題ではない? http://mevius.5ch.net/test/read.cgi/tech/1598756127/44
45: デフォルトの名無しさん (ﾜｯﾁｮｲ c7da-XrX+) [sage] 2020/09/03(木) 20:28:15 ID:xDfSE2i10 あと、1回だけ成功したのなら、 馬鹿馬鹿しいと思うかも知れないけど、 DoeventsかSleepを入れてみるとか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/45
46: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-qH39) [sage] 2020/09/04(金) 12:46:00 ID:lx1E7kKYM csvをある列でフィルタし 結果を別のブックに貼り付け csvとして保存したところ 日付＋時刻（ゼロ時）の列すべて 5桁の数字になります どうしたら日付＋時刻のままで いてくれますか http://mevius.5ch.net/test/read.cgi/tech/1598756127/46
47: デフォルトの名無しさん (ﾜｯﾁｮｲ e77c-ALHH) [sage] 2020/09/04(金) 14:35:51 ID:cB2Mz28T0 文字列として貼る http://mevius.5ch.net/test/read.cgi/tech/1598756127/47
48: デフォルトの名無しさん (ﾜｯﾁｮｲ 7f8e-+abr) [] 2020/09/04(金) 16:31:17 ID:9qR3rveJ0 >>46 VBAの話しか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/48
49: デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-qH39) [] 2020/09/04(金) 17:16:17 ID:lx1E7kKYM >>48 はぃ、vbaでそういう処理を書きました http://mevius.5ch.net/test/read.cgi/tech/1598756127/49
50: デフォルトの名無しさん (ｱｳｱｳｸｰ MMbb-DxLX) [sage] 2020/09/04(金) 19:53:46 ID:F8mRPL3VM 一定間隔でマクロ実行する方法はなんとなくわかるのですが、不規則な間隔（5秒〜90秒）でマクロ実行したいのですが どんなやり方がありますか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/50
51: デフォルトの名無しさん (ﾜｯﾁｮｲ c7da-XrX+) [sage] 2020/09/04(金) 20:18:00 ID:1AlCas5O0 >>46 日付が5桁の数字って、44078とかだろうけど、 多分フィルタもCSVも関係ない。 値貼り付けしちゃってる。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/51
52: デフォルトの名無しさん (ﾜｯﾁｮｲ c7da-XrX+) [sage] 2020/09/04(金) 20:24:24 ID:1AlCas5O0 >>50 Rnd使うのが一般的なんだろうけど、アホな方法を挙げると、 誰かが作った不規則をパク http://mevius.5ch.net/test/read.cgi/tech/1598756127/52
53: デフォルトの名無しさん (ﾜｯﾁｮｲ c7da-XrX+) [sage] 2020/09/04(金) 20:26:21 ID:1AlCas5O0 ってくるとか。 例えばライブカメラの画像をDLして使うとか。 http://mevius.5ch.net/test/read.cgi/tech/1598756127/53
54: デフォルトの名無しさん (ﾜｯﾁｮｲ 27ce-n8ne) [sage] 2020/09/04(金) 22:27:33 ID:awq2GZ8I0 >>50 マクロの最後にApplication.OnTimeを書く 現在時刻に乱数で秒数を足す http://mevius.5ch.net/test/read.cgi/tech/1598756127/54
55: デフォルトの名無しさん (ﾜｯﾁｮｲ e710-t/Jd) [] 2020/09/04(金) 23:53:41 ID:3ZUt+s6n0 モジュール1で定義した配列をモジュール2で使うにはどうすればいいですか？ モジュール1でdimではなくpublicで宣言すればいいのでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1598756127/55
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 947 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.013s