[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
877: 2019/05/30(木)23:32 ID:2aR1E9YD(5/5) AAS
>>876
リボンやクイックアクセスツールバーとかで増やすほうね＞機能拡張
878: 2019/05/31(金)00:15 ID:P50R/Vqw(1) AAS
NothingとNullとEmptyの違いがわからない
MSはナンセンス、はっきりわかんだね
879: 2019/05/31(金)00:35 ID:/aDGaFpI(1) AAS
EmptyはVariant型の初期状態(何も入ってない)
セルの初期状態でもある
確認方法
新規ワークシートに対して、イミディエイトウィンドウで
Print TypeName(Cells(1,1).Value)
とすると
Empty
と表示される
Nothingはオブジェクト型変数にオブジェクトが代入されていない(結びつけられていない)状態
NullはExcelだと出番がないと思っていい
主にAccessでデータを扱う時にNullが必要な場面が出てくる
880: 2019/05/31(金)01:16 ID:gZfVve3x(1) AAS
複数セルのRangeからプロパティとってくるとき不一致だとNullになるくらいやな
881(3): 2019/06/02(日)23:52 ID:I/vPFDmN(1) AAS
ユーザーフォームの、複数のテキストボックス、
例えばオブジェクト名をtb1、tb2とかにしてループ文に組み込むということはできますか？
オブジェクト変数というのが関係しそうな気がするんですが、
テキストを読んでも理解できない…
882: 2019/06/02(日)23:56 ID:56udfPFB(1) AAS
>>881
すべてのテキストボックスでループ。
目的のテキストボックス群で名前を元に絞り込みすりゃ良いんじゃね。
883: 2019/06/03(月)02:05 ID:OjX7Po3D(1) AAS
普通はテキストボックスのTagプロバティに区別できるキーワード入れといて
For eachでUserform.controlsやると思う
884: 2019/06/03(月)08:31 ID:mpVNxBbp(1) AAS
>>881
controls(”tb” & i)
885: 2019/06/03(月)13:44 ID:DCISZKmM(1) AAS
>>881
オブジェクトの配列作って、という事だと思うけど
使うとしたらオブジェクト参照を保持したまま色々したい時ぐらいかも
値の参照とセットだけなら皆さん挙げられているcontrolsでやりますね
886(1): 2019/06/08(土)00:31 ID:ycKO1KOa(1) AAS
vba スタンダード 、accessのおすすめの問題集ってやっぱり公式テキストでしょうか。
887(1): 2019/06/08(土)11:47 ID:pWKWNjKi(1) AA×
888: 2019/06/08(土)16:19 ID:pA8BerVC(1/2) AAS
>>886
先月に出題範囲かわったし公式でしょ
889: 2019/06/08(土)16:27 ID:pA8BerVC(2/2) AAS
>>887
Word.Selection.CellsとかRow.Cellsとかあるで
Tableには.Cell(1,1)しかないがな
ちなCellsはxy指定できんがCellはxy指定必須や
エクセルのプロパティのほうが異常なんやで
890: 2019/06/12(水)20:44 ID:WUwNpP1f(1) AAS
新垣結衣 AVデビュー
外部ﾘﾝｸ:www.xvideos.com
891: 2019/06/12(水)21:19 ID:Hop9ON+a(1) AAS
vba エキスパート は、excel ベーシック以外は公式テキストまだだから受験は待ったほうがいいですよね。
892: 2019/06/19(水)04:56 ID:tVNS+22r(1) AAS
【出資】松本卓朗 人工知能詐欺【注意】
2chｽﾚ:rikei
893(3): 2019/06/24(月)19:31 ID:XS1zoxjN(1) AAS
以前word VBAの質問をした者ですが、その節はありがとうございました。
お陰様で処女作のユーザーフォームが完成しかかっているのですが、最終問題に難儀しています。
やりたい事：「保存」ボタンを押す→ActiveDocumentと同じ場所に「記録表」というフォルダを作成し、
その中に「"氏名”」というファイルを生成する。既に「記録表」のフォルダがあればフォルダは作成せず、
そちらにファイルを生成する。
なお、不特定多数のユーザーが使う前提です(保存場所を手打ちしたらユーザー名で詰む)
四苦八苦しましたが、ひとまず確認用にdesktopに生成しようとしてなんかユーザーフォルダの滅っ茶根深い場所に生成されたり、
推測で打ってみたメソッドが全く機能しなかったり(フォルダの有無を確認するようなのって何だろう)
なんというか、Excelのfxボタンみたいにメソッドの内容を教えてくれるやつ、ないんですかね…
ちなみに職場のPCはスタンドアロンでヘルプに繋がらず、自宅PCにはOfficeが入ってないです。
894: 2019/06/24(月)22:54 ID:klKakRL3(1) AAS
>>893
オフラインヘルプインストールできなかったっけ… 見てみて
F2キーでオブジェクトブラウザが表示される
これ無しで開発なんてやってられない
895: 2019/06/25(火)05:52 ID:A+zOKxp7(1) AAS
今オフラインのヘルプって提供されてないんじゃないのか？
896: 2019/06/25(火)08:17 ID:uunD1dKc(1/2) AAS
>>893
デスクトップはエクスプローラーの左のとこにカタカナで出てるとこと同じやで
深いとこにできても、そちらから近道すればよろし
897: 2019/06/25(火)08:27 ID:uunD1dKc(2/2) AAS
>>893
〉フォルダの有無確認
昔は Dir()だったけど、今は filesystemobjectかな。
参照設定も必要なので使い方も含めてggッテください
folderexists()
898: 2019/06/25(火)10:33 ID:aRzPCUod(1) AAS
公式オフラインヘルプがあったのは2013だな
2016もオフライン版があるけど英語
外部ﾘﾝｸ:github.com
基本的な機能は2013からあんまり変わってないから、2013用のヘルプを入れてしまうという手もある
使い勝手は悪いけど、いつでも参照できるという利点はあるから
899: 2019/06/26(水)09:21 ID:IYAeNPRu(1) AAS
Activedocument.Pathで所在フォルダのパスが出せる
これとフォルダ名とファイル名繋げた文字列つくればSaveAs2の引数にできる
900(1): 2019/06/26(水)18:32 ID:pdVAutd4(1/2) AAS
質問です。excel2016の並び替え機能で
漢字、かな（あ〜ん）、アルファベット(a〜z)で並べ替えて漢字の中でも「本店」を最上位とできませんかね？
降順だと上記並びなのですが、かな（ん→あ）、アルファベット（z→a)になります。
Custumorder に「本店」を入力すると漢字中で1番下になります。
よろしくお願いします
901(1): 2019/06/26(水)20:26 ID:JKpFRzRw(1) AAS
>>900
本店の前にスペース入れる
902: 2019/06/26(水)21:08 ID:pdVAutd4(2/2) AAS
>>901
ありがとうございます。
やってみます。
903: 2019/07/04(木)12:19 ID:Siuy47lc(1) AAS
Wordの表で、
ActiveDocument.Tables(2).Select
みたいに選択したいのですが、どれだけ表を分割しても、
全ての表が Tables(1) という扱いなようでエラーになります。
ひとつ前に似たようなものを組んだ時には問題なくTables(2)になりましたが、
それと構文上は全く違いはありません。
どうしたら Tables(2)という扱いになるのでしょうか。
904: 2019/07/04(木)22:43 ID:lDcVSkIh(1) AAS
ユーザーフォーム内のコンボボックスに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
905(1): 2019/07/05(金)02:42 ID:grV1bh4s(1) AAS
取得するのが D:/画像一覧/*jpeg*.jpeg になってるとか
fName は iName の間違いじゃないのかとか
myList は String なのにSplitした後のものを代入してるとか
906: 2019/07/06(土)12:30 ID:z73aGQye(1) AAS
>>905
返信遅れて大変申し訳ありません
３つのご指摘直して反映できました。
ありがとうございました。
上下前次1-新書関写板覧索設栞歴
あと 96 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.028s