[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
862: デフォルトの名無しさん [sage] 2019/05/28(火) 16:40:41.12 ID:Z4r31Ymp >>861 それと、行や列用の変数として r c 使ってもええんやで http://mevius.5ch.net/test/read.cgi/tech/1432173164/862
863: 859 [sage] 2019/05/28(火) 17:30:10.75 ID:xKlK3b52 >>861 ファッ！それかも！ マジでありがとうです！ 何かあったらまた聞きます ホントありがとう、頭いい人！ http://mevius.5ch.net/test/read.cgi/tech/1432173164/863
864: デフォルトの名無しさん [sage] 2019/05/28(火) 18:33:24.92 ID:1J9FOJWe 初心者です。 Wordのユーザーフォームを作りたいのですがExcelの書籍しかなくて詰みました。 Excelのセル番地『A1』に相当するのが『ActiveDocument .tables (1) .cell (1.1)』というところまで突き止めて、 とりあえずテキストボックスに打ち込んだ文字列をセルに転記するところまではできたのですが、それ以上のことができません。 例えば繰り返し同じフォームを使う前提で、古いデータを削除したい時、Excelならば 『Range("A1") .CleanContents』で済むっぽい(うろ覚え)ですが これをActiveDocumentで再現するにはどうすればよいでしょうか。 まだ文法など全く理解できていませんが、素人目に『Range(”ActiveDocument .tables (1) .cell (1.1)”).Select .CleanContents』 などと書いてしまいたい訳です(当然、動きませんでした) 加えて、WordVBAを中心にお勧めの書籍などありましたら教えていただきたいです。 今の書籍は痒いところに手が届かず… http://mevius.5ch.net/test/read.cgi/tech/1432173164/864
865: 859 [sage] 2019/05/28(火) 19:44:38.82 ID:xKlK3b52 >>861 set temp = .findnext(temp)の下に i=i+1を入れた所、できました。 本当にありがとう！助かりました(T^T) http://mevius.5ch.net/test/read.cgi/tech/1432173164/865
866: デフォルトの名無しさん [sage] 2019/05/29(水) 00:12:19.46 ID:S0wmSPvZ >>864 定番は「最速攻略 Word マクロ / VBA徹底入門」 Word VBAの書籍やWEBサイトは選択肢が圧倒的に少ないから、基本がわかったらVBEのオブジェクトブラウザやネットでMSDNを見た方が確実 http://mevius.5ch.net/test/read.cgi/tech/1432173164/866
867: デフォルトの名無しさん [sage] 2019/05/29(水) 09:29:45.93 ID:YAhbpcsl 学校でVBAを勉強した方はどんな参考で勉強したんでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/867
868: デフォルトの名無しさん [sage] 2019/05/29(水) 09:30:35.46 ID:YAhbpcsl ×参考 ◯参考書 http://mevius.5ch.net/test/read.cgi/tech/1432173164/868
869: デフォルトの名無しさん [sage] 2019/05/29(水) 09:32:43.10 ID:YAhbpcsl 書籍の名前聞いてみたい http://mevius.5ch.net/test/read.cgi/tech/1432173164/869
870: デフォルトの名無しさん [sage] 2019/05/30(木) 15:12:11.08 ID:V/L1IaNJ >>Wordのユーザーフォーム 必要性が今一分からん http://mevius.5ch.net/test/read.cgi/tech/1432173164/870
871: デフォルトの名無しさん [sage] 2019/05/30(木) 18:04:51.34 ID:2aR1E9YD Wordは機能拡張に凝り出すと面白いよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/871
872: デフォルトの名無しさん [sage] 2019/05/30(木) 18:38:59.73 ID:3bWSKYGB >>870 いろんなソースで、色つけたり太字にしたり、用紙指定や段組みして印刷させる 。 炎上プロジェクトに突撃するのに必須 http://mevius.5ch.net/test/read.cgi/tech/1432173164/872
873: デフォルトの名無しさん [sage] 2019/05/30(木) 18:47:13.10 ID:2aR1E9YD >>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 http://mevius.5ch.net/test/read.cgi/tech/1432173164/873
874: デフォルトの名無しさん [sage] 2019/05/30(木) 19:32:14.84 ID:2aR1E9YD こっちのがスマートだった '選択範囲内にあるテーブルの一行目以外をクリアします。 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 http://mevius.5ch.net/test/read.cgi/tech/1432173164/874
875: デフォルトの名無しさん [sage] 2019/05/30(木) 19:50:35.91 ID:2aR1E9YD もし文字編集でcell()下位の.Rangeが省略されてるのを知らないと cell.Range.Deleteの文字削除とcell.Deleteのセル削除が 使い分けができないので注意 http://mevius.5ch.net/test/read.cgi/tech/1432173164/875
876: デフォルトの名無しさん [sage] 2019/05/30(木) 22:47:58.04 ID:JR52NV0g >>871 そうだろうけど、 他のOfficeでも出来るんじゃないの? 拡張って参照設定の事でしょ? >>874 マジかよWord Tableって・・。 ExcelでSQLが使えたり、Officeは割と何でもありだとは思っていたが・・。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/876
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
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 111 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.020s