[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
591: デフォルトの名無しさん [sage] 2018/09/02(日) 16:03:58.04 ID:v7+8Ol2A VBAで質問です 【前提】 ・デスクトップにフォルダA ・フォルダAの中に9月1日分のExcelファイル"0901"とマクロ作動用の.xlsmファイル 【したいこと】 ・フォルダAの中に9月2日分のフォルダ"0902"を作成 ・"0901"を開き、B2セルの2018/9/1を2018/9/2に書き換え ・フォルダ"0902"内にファイル名を"0902"にして保存 日毎のレポートのひな形を作ろうとしています あまり知らないながら書いてるのですがエラー出まくりで泣きそうです http://mevius.5ch.net/test/read.cgi/tech/1432173164/591
592: デフォルトの名無しさん [sage] 2018/09/02(日) 16:16:35.28 ID:7fXcCHFS >>590 Application.Searchメソッド、もしくは Application.Session.GetDefaultFolder(olFolderInbox).GetTable(DASLクエリの引数) を使えば良いのでは http://mevius.5ch.net/test/read.cgi/tech/1432173164/592
593: デフォルトの名無しさん [sage] 2018/09/02(日) 16:51:32.22 ID:Q0JGCJ3q >>591 悪いこと言わないから、手でやるか詳しい人に頼みなさい 複数のブックが同時に開かれている状態でのVBA処理には いろいろ面倒なところがあり、経験が必要 5ちゃんでサクっと説明できるものではない しかもフォルダ処理も伴っているので、エラー処理を含め きっちり作ろうとするとけっこうな規模のアプリになってしまうと思う http://mevius.5ch.net/test/read.cgi/tech/1432173164/593
594: デフォルトの名無しさん [sage] 2018/09/02(日) 17:27:55.14 ID:1l6OdzeH >>591 thisworkbook.path\フォルダA\0901を開いてあとはブック名から指定して必要事項を書き換え。 ブック名を指定してsaveAsで thisworkbook.path\フォルダA\0902で保存。 蛇足だが、必要無くともブックもシートも常に指定した方が良い。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/594
595: デフォルトの名無しさん [sage] 2018/09/02(日) 17:44:00.59 ID:GR8jnF/5 >>591 とりあえず作ったコードを晒せば色々添削してもらえるかと >>593 回答できないなら黙ってなよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/595
596: デフォルトの名無しさん [sage] 2018/09/02(日) 18:16:50.42 ID:dkuRxOF+ おそらくやりたいことはこんな感じだろう。 0901ファイルを開いた状態で、9月2日当日にレポートを作成する前提。 0901ファイルを修正するという話だったからその通りにしたけど、本当ならここはテンプレートファイルから書き起こすようにするべきだと思う。 テスト実行してないので、エラーが出たらごめんなさい。 Sub CreateDailyReport Dim Report As Workbook Set Report = Application.Workbooks("0901") 'テンプレートから新規ファイルを作成するなら以下のように変える 'Set Report = Application.Workbooks.Open(テンプレートのパス) Report.Worksheets("Sheet1").Range("B2").Value = Format(Date, "yyyy/mm/dd") Dim PathString As String PathString = Thisworkbook.Path & "¥" & Format(Date, "mmdd") If Dir(PathString, vbDirectory) = "" Then MkDir PathString Report.SaveAs PathString & "¥" & Format(Date, "mmdd") & ".xlsx" Report.Close End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/596
597: デフォルトの名無しさん [sage] 2018/09/02(日) 18:17:42.72 ID:1ZQrBI0R 593の言うことは間違ってないと思いますよ。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/597
598: デフォルトの名無しさん [] 2018/09/02(日) 21:02:04.61 ID:/2qGDDvp >>592 Application.AdvancedSearchして Searchオブジェクトを検索フォルダーにSaveするっていうことですかね 単純にVBAでCrtl+Eのクイックサーチ（？）する方法があればと思ったのですが 無理っぽいですね ありがとうございました http://mevius.5ch.net/test/read.cgi/tech/1432173164/598
599: デフォルトの名無しさん [sage] 2018/09/06(木) 16:40:58.45 ID:KlP6yXrE 初歩的な質問でごめんなさい うまくできません If IsNumeric(myN) Then Range("A1").Value=Range("A1").Value + myN End If myNが1の時と2の時があるとしてセルA1の値を3にしたいのですが やってみると12っていう風に数字が並んでいってしまいます どうしたらいいでしょうか http://mevius.5ch.net/test/read.cgi/tech/1432173164/599
600: デフォルトの名無しさん [sage] 2018/09/06(木) 19:12:55.41 ID:iNH/PWkM >>599 もしmyNがString型、あるいはObject型に文字列データが入っている場合は数値型に変換する必要がある Range("A1").Value = Val(Range("A1").Value) + Val(myN) でいいんじゃないかな http://mevius.5ch.net/test/read.cgi/tech/1432173164/600
601: デフォルトの名無しさん [sage] 2018/09/06(木) 19:23:08.77 ID:KlP6yXrE >>600 String型になっていました 参考にしてもっと勉強します お付き合いくださりありがとうございました http://mevius.5ch.net/test/read.cgi/tech/1432173164/601
602: デフォルトの名無しさん [] 2018/09/21(金) 21:15:16.71 ID:Fm9zyYJ3 超初心者です。 Googleの検索窓に「VBA」と入力する サンプルコード （https://vba-code.net/ie/set-value-to-textbox/） を実行してみましたが、 objIE.document.getElementById("gbqfq").Value = "VBA"のところで 「実行時エラー 424 オブジェクトが必要です。」となって動きません。 「標準モジュールに以下のコードを追加して」の意味が分からないので、 標準モジュールをどう書いたらよいのか、どこに追加したらよいのかわからず サンプルコードのみを実行しました。 どなたか親切な方、対応方法を教えてください。 難しいことはわからないので具体的にコードを書いてもらえると嬉しいです。 よろしくお願いいたします。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/602
603: デフォルトの名無しさん [sage] 2018/09/21(金) 22:26:39.22 ID:9i7TQATj >>602 >>objIE.document.getElementById("gbqfq").Value = "VBA" objIE.Document.getElementById("lst-ib").Value = "VBA" http://mevius.5ch.net/test/read.cgi/tech/1432173164/603
604: デフォルトの名無しさん [] 2018/09/21(金) 22:40:18.36 ID:Fm9zyYJ3 >>603 ありがとうございます！ できました！！！ なんか分からないけど動いて嬉しいです！ 頑張ります。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/604
605: デフォルトの名無しさん [] 2018/09/21(金) 22:42:58.72 ID:MqKbhYRD >>604 おう頑張れ！わからんかったらまたいつでも聞いてくれな！ http://mevius.5ch.net/test/read.cgi/tech/1432173164/605
606: デフォルトの名無しさん [] 2018/09/21(金) 23:16:58.27 ID:Fm9zyYJ3 >>605 ありがとうございます！ 同じことを別のホームページでしたくて、 URLと入力するところを変えてみたのですが、 実行時エラー438 オブジェクトはこのプロパティまたはメソッドをサポートしていませんとなって動きません。 ホームページは https://www2.smile-etc.jp/NASApp/etcmlg/MlgReq;jsessionid=0001kXELRCuGax2mjI7VtXa12rz:15fqn57ku?gvlddpef=1011100000&mdwsetmb=1011120000の画面でしたくて、 入力するところは objIE.document.getElementsByName("Name1Kana").Value = "マイレージ"としてみました。 お時間あるときでよいので出来たらお願いします。 仕事で毎日同じような入力ばかりしていて自動化できるところをできたらいいなと思っているのですが、超初心者にはハードルが高くて難しいです 涙 ' http://mevius.5ch.net/test/read.cgi/tech/1432173164/606
607: デフォルトの名無しさん [sage] 2018/09/21(金) 23:29:19.39 ID:m8DL5ZJ4 getElementById("gbqfq") getElementById("lst-ib") 君は、この違いがわからないの？ HTML, DOM, CSS, JavaScript とか知らないの？ VBA には関係ないのだけど。 全言語・プログラミングに共通の話題なんだが http://mevius.5ch.net/test/read.cgi/tech/1432173164/607
608: デフォルトの名無しさん [] 2018/09/21(金) 23:59:36.29 ID:Fm9zyYJ3 >>607 すみません、わかりません。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/608
609: 607 [sage] 2018/09/22(土) 01:01:33.83 ID:DCTpeoPT HTML に書いてある、ID だよ ウェブページは、HTML(DOM), CSS, JavaScript で出来ている。 ブラウザでF12 を押すと、開発者ツールが起動するだろ これらを知らないと、ウェブ開発はできない！ VBA とは、全く関係ない http://mevius.5ch.net/test/read.cgi/tech/1432173164/609
610: デフォルトの名無しさん [] 2018/09/22(土) 03:52:07.76 ID:AiTHsE5Z >>609 >>609 知識もないのに場違いな質問をしてしまいすみませんでした。ご親切にありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/610
611: デフォルトの名無しさん [] 2018/09/22(土) 09:42:45.32 ID:AiTHsE5Z >>606 自己解決して、自動入力マクロができました！ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/611
612: デフォルトの名無しさん [sage] 2018/10/12(金) 07:52:16.28 ID:OKfVsW46 VBAでできることはC#でもやることはできますか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/612
613: デフォルトの名無しさん [sage] 2018/10/12(金) 07:55:38.55 ID:/wsNoZ03 できます http://mevius.5ch.net/test/read.cgi/tech/1432173164/613
614: デフォルトの名無しさん [sage] 2018/10/12(金) 09:20:25.16 ID:dGKqHjcm ユーザー定義関数の作成以外ならなんでもできます http://mevius.5ch.net/test/read.cgi/tech/1432173164/614
615: デフォルトの名無しさん [sage] 2018/10/12(金) 09:54:55.01 ID:TjU2aakC それにしても､なんで､マクロはFunctionしかcall出来ないんだろうね。 無駄にFunctionを作らないようにと英語の本には書いてある。Subで済むもをFunctionにするなと書いてある。 なのに､マクロの仕様のために､無駄にFunctionをつくったり､SubをcallするだけのFunctionを作ったりしないといけないのは間抜けな仕様だと思うがどうだろうか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/615
616: デフォルトの名無しさん [sage] 2018/10/12(金) 10:38:39.78 ID:/wsNoZ03 >>614 それもC#で可能 >>615 ちょっと何言ってるかわかんないですね http://mevius.5ch.net/test/read.cgi/tech/1432173164/616
617: デフォルトの名無しさん [sage] 2018/10/12(金) 10:53:20.05 ID:TjU2aakC >>616 マクロからSubをCallできないのは知ってますか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/617
618: デフォルトの名無しさん [sage] 2018/10/12(金) 12:09:03.01 ID:bZOmvKy4 >>617 知らないです 私の知ってるマクロだとsubもcallできるので http://mevius.5ch.net/test/read.cgi/tech/1432173164/618
619: デフォルトの名無しさん [sage] 2018/10/12(金) 12:28:42.41 ID:YStpcFYj >>616 本当に？ ワークシートからDLL関数をCallするためのインターフェースだけはVBAネイティブのFunctionとして書かなきゃいけないと思ってた ワークシートから直接C#ソースの関数をCall出来るってこと？ >>615 SubもCall出来る というかSubは本来Subroutineのことを指すのでそもそもCallできなきゃおかしい http://mevius.5ch.net/test/read.cgi/tech/1432173164/619
620: デフォルトの名無しさん [sage] 2018/10/12(金) 14:32:33.06 ID:E7u6qrbY あれ？エクセルは出来るの？ アクセスは駄目なんだよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/620
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 382 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.012s