[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
847: 2019/05/15(水)16:00 ID:D3RbfE7K(1) AAS
イベント用インスタンスはPublicでやるの？
848(1): 2019/05/15(水)20:12 ID:XVltvZnu(1) AAS
せっかくのイベントなのにPrivateにしたら星飛雄馬のクリスマスパーティーみたいになるじゃん
849: 2019/05/15(水)20:14 ID:RIeke8Yt(1) AAS
>>848
座蒲団3枚あげる
850(1): 2019/05/15(水)20:49 ID:WHH9UP0v(1) AAS
何か面白いこと言った？
全然わからない。
興味あるからなぜ面白いか教えて？
851: 2019/05/16(木)02:08 ID:Ab5DOH6n(1) AAS
>>850
ニコ動
動画ﾘﾝｸ[ﾆｺﾆｺ動画]
852(1): 2019/05/16(木)14:30 ID:wWtnEH3A(1/2) AAS
コード書く画面を
背景は黒に、文字は白に、する方法を教えれ
853(1): 2019/05/16(木)17:24 ID:EX4VaMcQ(1) AAS
>>852
ダークテーマと天に向かって３回唱える
854: 2019/05/16(木)17:37 ID:wWtnEH3A(2/2) AAS
>>853
知っておる
2chｽﾚ:tech
下がってよいぞ
855(1): 2019/05/23(木)22:41 ID:ufKYoT27(1/2) AAS
Wordで文字置換をしたいのですが、特定のフォントの文字列を検索して、文字列は変えずにフォントだけ変えたいです。半角を全角にしたいのですが可能でしょうか。ヒントだけでも教えていただけると有り難いです。
856(1): 2019/05/23(木)23:01 ID:ubNtK04k(1) AAS
>>855
できる
任意のRangeのCharactersのフォントを一字ずつ調べて、探しているフォントが適用されている文字が見つかったらその文字のフォントを修正すればいい
半角から全角に変換するにはStrConv関数を使用し、第２引数conversionには列挙定数のvbWideを指定する
857(1): 2019/05/23(木)23:16 ID:fmz+6NIG(1) AAS
wordの標準機能で半角全角変換あったような
858: 2019/05/23(木)23:29 ID:ufKYoT27(2/2) AAS
>>856
ありがとうございます！
やってみます。
>>857
上手くいかなかったと思います。。
859(4): 859 2019/05/28(火)16:00 ID:JWvhlEsx(1/2) AA×
860(1): 859 2019/05/28(火)16:01 ID:JWvhlEsx(2/2) AAS
859の続き
Sub Find()
Dim temp As Range, tempAddress As String, i As Long
With Range("A1").CurrentRegion.Resize(, 1).Offset(, 2)
Set temp = .Find(what:=“たろう”)
If Not temp Is Nothing Then
tempAddress = temp.Address
i = Cells(Rows.Count, "E").End(xlUp).Row
Do
temp.Offset(columnoffset:=-2).Resize(, 3).copy Cells(i, "E")
Set temp = .FindNext(temp)
Loop While temp.Address <> tempAddress
End If
End With
End Sub
Sub copy()
Range("A:G").Clear
Worksheets("template").Range("A1:C7").copy Destination:=Worksheets("Sheet1").Range("A1")
End Sub
861(3): 2019/05/28(火)16:38 ID:Z4r31Ymp(1/2) AAS
>>860
i=i+1 が抜けてるだけじゃね？
862: 2019/05/28(火)16:40 ID:Z4r31Ymp(2/2) AAS
>>861
それと、行や列用の変数として r c 使ってもええんやで
863: 859 2019/05/28(火)17:30 ID:xKlK3b52(1/2) AAS
>>861
ファッ！それかも！
マジでありがとうです！
何かあったらまた聞きます
ホントありがとう、頭いい人！
864(2): 2019/05/28(火)18:33 ID:1J9FOJWe(1) AAS
初心者です。
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を中心にお勧めの書籍などありましたら教えていただきたいです。
今の書籍は痒いところに手が届かず…
865: 859 2019/05/28(火)19:44 ID:xKlK3b52(2/2) AAS
>>861
set temp = .findnext(temp)の下に
i=i+1を入れた所、できました。
本当にありがとう！助かりました(T^T)
866: 2019/05/29(水)00:12 ID:S0wmSPvZ(1) AAS
>>864
定番は「最速攻略 Word マクロ / VBA徹底入門」
Word VBAの書籍やWEBサイトは選択肢が圧倒的に少ないから、基本がわかったらVBEのオブジェクトブラウザやネットでMSDNを見た方が確実
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は割と何でもありだとは思っていたが・・。
上下前次1-新書関写板覧索設栞歴
あと 126 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.042s