[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
867: 2019/05/29(水)09:29 ID:YAhbpcsl(1/3) AAS
学校でVBAを勉強した方はどんな参考で勉強したんでしょうか？
868: 2019/05/29(水)09:30 ID:YAhbpcsl(2/3) AAS
×参考
◯参考書
869: 2019/05/29(水)09:32 ID:YAhbpcsl(3/3) AAS
書籍の名前聞いてみたい
870(1): 2019/05/30(木)15:12 ID:V/L1IaNJ(1) AAS
>>Wordのユーザーフォーム
必要性が今一分からん
871(1): 2019/05/30(木)18:04 ID:2aR1E9YD(1/5) AAS
Wordは機能拡張に凝り出すと面白いよ
872: 2019/05/30(木)18:38 ID:3bWSKYGB(1) AAS
>>870
いろんなソースで、色つけたり太字にしたり、用紙指定や段組みして印刷させる
。
炎上プロジェクトに突撃するのに必須
873: 2019/05/30(木)18:47 ID:2aR1E9YD(2/5) AAS
>>864
'選択範囲内にあるテーブルの一行目以外をクリアします。
Sub clearSelectedTableData()
If Word.Application.Selection.Tables.Count = 0 Then
'MsgBox "Select Any Table!"
Exit Sub
End If
Dim t As Word.Table
For Each t In Word.Application.Selection.Tables
Dim r As Long, c As Long
For r = 2 To t.Rows.Count
For c = 1 To t.Columns.Count
t.Cell(r, c).Range.Text = ""
Next c
Next r
Next t
End Sub
874(1): 2019/05/30(木)19:32 ID:2aR1E9YD(3/5) AAS
こっちのがスマートだった
'選択範囲内にあるテーブルの一行目以外をクリアします。
Sub clearSelectedTableData()
If Word.Application.Selection.Tables.Count = 0 Then
'MsgBox "Select Any Table!"
Exit Sub
End If
Dim t As Word.Table
For Each t In Word.Application.Selection.Tables
If t.Rows.Count > 2 Then
Dim r As Long
For r = 2 To t.Rows.Count
t.Rows(r).Range.Delete
Next r
End If
Next t
End Sub
875: 2019/05/30(木)19:50 ID:2aR1E9YD(4/5) AAS
もし文字編集でcell()下位の.Rangeが省略されてるのを知らないと
cell.Range.Deleteの文字削除とcell.Deleteのセル削除が
使い分けができないので注意
876(1): 2019/05/30(木)22:47 ID:JR52NV0g(1) AAS
>>871
そうだろうけど、
他のOfficeでも出来るんじゃないの?
拡張って参照設定の事でしょ?
>>874
マジかよWord Tableって・・。
ExcelでSQLが使えたり、Officeは割と何でもありだとは思っていたが・・。
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
デスクトップはエクスプローラーの左のとこにカタカナで出てるとこと同じやで
深いとこにできても、そちらから近道すればよろし
上下前次1-新書関写板覧索設栞歴
あと 106 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.026s