[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
885: デフォルトの名無しさん [sage] 2019/06/03(月) 13:44:44.83 ID:DCISZKmM >>881 オブジェクトの配列作って、という事だと思うけど 使うとしたらオブジェクト参照を保持したまま色々したい時ぐらいかも 値の参照とセットだけなら皆さん挙げられているcontrolsでやりますね http://mevius.5ch.net/test/read.cgi/tech/1432173164/885
886: デフォルトの名無しさん [] 2019/06/08(土) 00:31:30.90 ID:ycKO1KOa vba スタンダード 、accessのおすすめの問題集ってやっぱり公式テキストでしょうか。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/886
887: デフォルトの名無しさん [sage] 2019/06/08(土) 11:47:13.10 ID:pWKWNjKi エクセル Cells(1,1) ワード Cell(1,1) ↑ は? 何でワードにはsが無い? http://mevius.5ch.net/test/read.cgi/tech/1432173164/887
888: デフォルトの名無しさん [sage] 2019/06/08(土) 16:19:13.22 ID:pA8BerVC >>886 先月に出題範囲かわったし公式でしょ http://mevius.5ch.net/test/read.cgi/tech/1432173164/888
889: デフォルトの名無しさん [sage] 2019/06/08(土) 16:27:53.67 ID:pA8BerVC >>887 Word.Selection.CellsとかRow.Cellsとかあるで Tableには.Cell(1,1)しかないがな ちなCellsはxy指定できんがCellはxy指定必須や エクセルのプロパティのほうが異常なんやで http://mevius.5ch.net/test/read.cgi/tech/1432173164/889
890: デフォルトの名無しさん [] 2019/06/12(水) 20:44:31.77 ID:WUwNpP1f 新垣結衣 AVデビュー https://www.xvideos.com/video48369883/_ai_ http://mevius.5ch.net/test/read.cgi/tech/1432173164/890
891: デフォルトの名無しさん [] 2019/06/12(水) 21:19:56.07 ID:Hop9ON+a vba エキスパート は、excel ベーシック以外は公式テキストまだだから受験は待ったほうがいいですよね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/891
892: デフォルトの名無しさん [] 2019/06/19(水) 04:56:48.65 ID:tVNS+22r 【出資】松本卓朗 人工知能詐欺【注意】 https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/ http://mevius.5ch.net/test/read.cgi/tech/1432173164/892
893: デフォルトの名無しさん [sage] 2019/06/24(月) 19:31:10.71 ID:XS1zoxjN 以前word VBAの質問をした者ですが、その節はありがとうございました。 お陰様で処女作のユーザーフォームが完成しかかっているのですが、最終問題に難儀しています。 やりたい事：「保存」ボタンを押す→ActiveDocumentと同じ場所に「記録表」というフォルダを作成し、 その中に「"氏名”」というファイルを生成する。既に「記録表」のフォルダがあればフォルダは作成せず、 そちらにファイルを生成する。 なお、不特定多数のユーザーが使う前提です(保存場所を手打ちしたらユーザー名で詰む) 四苦八苦しましたが、ひとまず確認用にdesktopに生成しようとしてなんかユーザーフォルダの滅っ茶根深い場所に生成されたり、 推測で打ってみたメソッドが全く機能しなかったり(フォルダの有無を確認するようなのって何だろう) なんというか、Excelのfxボタンみたいにメソッドの内容を教えてくれるやつ、ないんですかね… ちなみに職場のPCはスタンドアロンでヘルプに繋がらず、自宅PCにはOfficeが入ってないです。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/893
894: デフォルトの名無しさん [sage] 2019/06/24(月) 22:54:40.46 ID:klKakRL3 >>893 オフラインヘルプインストールできなかったっけ… 見てみて F2キーでオブジェクトブラウザが表示される これ無しで開発なんてやってられない http://mevius.5ch.net/test/read.cgi/tech/1432173164/894
895: デフォルトの名無しさん [sage] 2019/06/25(火) 05:52:40.82 ID:A+zOKxp7 今オフラインのヘルプって提供されてないんじゃないのか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/895
896: デフォルトの名無しさん [sage] 2019/06/25(火) 08:17:29.97 ID:uunD1dKc >>893 デスクトップはエクスプローラーの左のとこにカタカナで出てるとこと同じやで 深いとこにできても、そちらから近道すればよろし http://mevius.5ch.net/test/read.cgi/tech/1432173164/896
897: デフォルトの名無しさん [sage] 2019/06/25(火) 08:27:47.11 ID:uunD1dKc >>893 〉フォルダの有無確認 昔は Dir()だったけど、今は filesystemobjectかな。 参照設定も必要なので使い方も含めてggッテください folderexists() http://mevius.5ch.net/test/read.cgi/tech/1432173164/897
898: デフォルトの名無しさん [sage] 2019/06/25(火) 10:33:29.10 ID:aRzPCUod 公式オフラインヘルプがあったのは2013だな 2016もオフライン版があるけど英語 https://github.com/OfficeDev/VBA-content/ 基本的な機能は2013からあんまり変わってないから、2013用のヘルプを入れてしまうという手もある 使い勝手は悪いけど、いつでも参照できるという利点はあるから http://mevius.5ch.net/test/read.cgi/tech/1432173164/898
899: デフォルトの名無しさん [sage] 2019/06/26(水) 09:21:12.11 ID:IYAeNPRu Activedocument.Pathで所在フォルダのパスが出せる これとフォルダ名とファイル名繋げた文字列つくればSaveAs2の引数にできる http://mevius.5ch.net/test/read.cgi/tech/1432173164/899
900: デフォルトの名無しさん [sage] 2019/06/26(水) 18:32:58.67 ID:pdVAutd4 質問です。excel2016の並び替え機能で 漢字、かな（あ〜ん）、アルファベット(a〜z)で並べ替えて漢字の中でも「本店」を最上位とできませんかね？ 降順だと上記並びなのですが、かな（ん→あ）、アルファベット（z→a)になります。 Custumorder に「本店」を入力すると漢字中で1番下になります。 よろしくお願いします http://mevius.5ch.net/test/read.cgi/tech/1432173164/900
901: デフォルトの名無しさん [sage] 2019/06/26(水) 20:26:59.08 ID:JKpFRzRw >>900 本店の前にスペース入れる http://mevius.5ch.net/test/read.cgi/tech/1432173164/901
902: デフォルトの名無しさん [sage] 2019/06/26(水) 21:08:13.27 ID:pdVAutd4 >>901 ありがとうございます。 やってみます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/902
903: デフォルトの名無しさん [sage] 2019/07/04(木) 12:19:45.93 ID:Siuy47lc Wordの表で、 ActiveDocument.Tables(2).Select みたいに選択したいのですが、どれだけ表を分割しても、 全ての表が Tables(1) という扱いなようでエラーになります。 ひとつ前に似たようなものを組んだ時には問題なくTables(2)になりましたが、 それと構文上は全く違いはありません。 どうしたら Tables(2)という扱いになるのでしょうか。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/903
904: デフォルトの名無しさん [sage] 2019/07/04(木) 22:43:55.95 ID:lDcVSkIh ユーザーフォーム内のコンボボックスにUSBの中にある画像一覧というフォルダ内の全ての画像名を表示したいのですがうまくいきません。 どのように変更すればよいか教えていただけませんか？ Private Sub UserForm1_load() Dim myList As String Dim myPath As String Dim iName As String myPath = "D:/画像一覧/*jpeg" fName = Dir(myPath & "*.jpeg") Do While iName <> "" If myList <> "" Then myList = myList & " " & iName Else myList = iName End If iName = Dir Loop If myList = "" Then Exit Sub myList = Split(myList) ComboBox1.List = myList End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/904
905: デフォルトの名無しさん [sage] 2019/07/05(金) 02:42:43.50 ID:grV1bh4s 取得するのが D:/画像一覧/*jpeg*.jpeg になってるとか fName は iName の間違いじゃないのかとか myList は String なのにSplitした後のものを代入してるとか http://mevius.5ch.net/test/read.cgi/tech/1432173164/905
906: デフォルトの名無しさん [sage] 2019/07/06(土) 12:30:25.64 ID:z73aGQye >>905 返信遅れて大変申し訳ありません ３つのご指摘直して反映できました。 ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/906
907: デフォルトの名無しさん [sage] 2019/07/25(木) 16:22:05.73 ID:eKMV/4VB ExcelVBAのユーザーフォーム上で、PDFを表示、操作をしたいです。 ですが、ユーザーフォームにコントロールを追加しようとすると、 「要素が見つかりません」とダイアログが表示され出来ません。 どなたか解決策をご存じの方がいましたら、教えていただけますでしょうか。。 Acrobat pro DCはインストールしてあり、ExcelはOffice365を最新の状態で使用してます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/907
908: デフォルトの名無しさん [sage] 2019/07/25(木) 18:51:11.10 ID:HFVXfXT2 >>907 EXCELは専用スレがあるので、そちらへどうぞ http://mevius.5ch.net/test/read.cgi/tech/1432173164/908
909: デフォルトの名無しさん [sage] 2019/07/26(金) 10:59:16.22 ID:nW8IFIW6 >>908 ありがとうございます。 そちらに書いてみます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/909
910: デフォルトの名無しさん [sage] 2019/08/14(水) 15:00:22.98 ID:Jc+eFMLQ ここで質問していいかわからないんですが、違ったら誘導していただけると助かります。 メッセージボックスを最前面にするために以下のコードを利用したいのですが、呼び出し元の下から3行目のvbOKOnly を vbYesNo に替えた後、選択ボタンを取得する方法がわかりません。 どのようなコードを足したらいいかご教示いただけないでしょうか。 【呼び出し元】 Option Explicit Dim WSHObj Dim Args Set WSHobj = WScript.CreateObject("WScript.Shell") Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _ & " ""出力メッセージ""" _ & " 0" _ & " ""VBS名称""" _ & " " & vbOKOnly ←vbYesNoに替える WSHObj.Run Args,0,true Set WSHobj = Nothing 【WSHPopUP.vbs】 Option Explicit Dim Arg Dim WSHObj Set WSHobj = WScript.CreateObject("WScript.Shell") Set Arg = WScript.Arguments WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) Set WSHobj = Nothing よろしくお願いします。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/910
911: デフォルトの名無しさん [sage] 2019/08/14(水) 19:26:49.04 ID:uFuQVnLY 【呼び出し元】 Option Explicit Dim WSHObj Dim Args Set WSHobj = WScript.CreateObject("WScript.Shell") Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _ & " ""出力メッセージ""" _ & " 0" _ & " ""VBS名称""" _ & " " & vbYesNo Dim hoge '受け取り用に追加 hoge = WSHObj.Run(Args,0,true) 'この変数hogeにvbYes=6かvbNo=7が入る。 '何か処理を書く Set WSHobj = Nothing 【WSHPopUP.vbs】 Option Explicit Dim Arg Dim WSHObj Set WSHobj = WScript.CreateObject("WScript.Shell") Set Arg = WScript.Arguments Dim fuga '戻り値用に追加 fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得 WSHObj.Quit fuga '呼び出し元に終了コードとして返す Set WSHobj = Nothing http://mevius.5ch.net/test/read.cgi/tech/1432173164/911
912: デフォルトの名無しさん [] 2019/08/14(水) 19:27:35.96 ID:uFuQVnLY 他にExecを使う方法もある http://mevius.5ch.net/test/read.cgi/tech/1432173164/912
913: デフォルトの名無しさん [sage] 2019/08/14(水) 20:05:03.77 ID:6C5bzX4k ｖｂDefaultButton1 とか、そういうのじゃなくて？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/913
914: デフォルトの名無しさん [sage] 2019/08/15(木) 00:01:28.86 ID:GUoAoBO9 >>911 ありがとうございます！ 試してみます！ >>913 すみません、ｖｂDefaultButton1 がわかりません http://mevius.5ch.net/test/read.cgi/tech/1432173164/914
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 88 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.030s