[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
877: デフォルトの名無しさん [sage] 2019/05/30(木) 23:32:10.68 ID:2aR1E9YD >>876 リボンやクイックアクセスツールバーとかで増やすほうね＞機能拡張 http://mevius.5ch.net/test/read.cgi/tech/1432173164/877
878: デフォルトの名無しさん [sage] 2019/05/31(金) 00:15:43.14 ID:P50R/Vqw NothingとNullとEmptyの違いがわからない MSはナンセンス、はっきりわかんだね http://mevius.5ch.net/test/read.cgi/tech/1432173164/878
879: デフォルトの名無しさん [sage] 2019/05/31(金) 00:35:41.84 ID:/aDGaFpI EmptyはVariant型の初期状態(何も入ってない) セルの初期状態でもある 確認方法 新規ワークシートに対して、イミディエイトウィンドウで Print TypeName(Cells(1,1).Value) とすると Empty と表示される Nothingはオブジェクト型変数にオブジェクトが代入されていない(結びつけられていない)状態 NullはExcelだと出番がないと思っていい 主にAccessでデータを扱う時にNullが必要な場面が出てくる http://mevius.5ch.net/test/read.cgi/tech/1432173164/879
880: デフォルトの名無しさん [sage] 2019/05/31(金) 01:16:13.09 ID:gZfVve3x 複数セルのRangeからプロパティとってくるとき不一致だとNullになるくらいやな http://mevius.5ch.net/test/read.cgi/tech/1432173164/880
881: デフォルトの名無しさん [sage] 2019/06/02(日) 23:52:18.62 ID:I/vPFDmN ユーザーフォームの、複数のテキストボックス、 例えばオブジェクト名をtb1、tb2とかにしてループ文に組み込むということはできますか？ オブジェクト変数というのが関係しそうな気がするんですが、 テキストを読んでも理解できない… http://mevius.5ch.net/test/read.cgi/tech/1432173164/881
882: デフォルトの名無しさん [sage] 2019/06/02(日) 23:56:26.76 ID:56udfPFB >>881 すべてのテキストボックスでループ。 目的のテキストボックス群で名前を元に絞り込みすりゃ良いんじゃね。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/882
883: デフォルトの名無しさん [sage] 2019/06/03(月) 02:05:13.53 ID:OjX7Po3D 普通はテキストボックスのTagプロバティに区別できるキーワード入れといて For eachでUserform.controlsやると思う http://mevius.5ch.net/test/read.cgi/tech/1432173164/883
884: デフォルトの名無しさん [sage] 2019/06/03(月) 08:31:11.52 ID:mpVNxBbp >>881 controls(”tb” & i) http://mevius.5ch.net/test/read.cgi/tech/1432173164/884
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
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 96 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.023s