Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41170 / 76732

←次へ　｜　前へ→


	【40643】Re:vbaの基本質問

Jaka - 06/7/19(水) 15:48 -


	引用なし

	パスワード

なんとなく不必要っぽいところを削ってみたけど。
必要なのはフォントサイズだけ？

Sub Macro1()
　　Application.ScreenUpdating = False
　　With Cells
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.ReadingOrder = xlContext
　　　　.MergeCells = False
　　End With
　　Rows("1:3").Delete Shift:=xlUp
　　Range("A:A,D:D,E:E").Delete Shift:=xlToLeft
　　Range("A1").Value = "コード"
　　Range("A1").Font.Size = 9
　　With Range("B1")
　　　　.Value = "取引先名"
　　　　.Font.Size = 9
　　　　.Characters(1, 2).PhoneticCharacters = "トリヒキ"
　　　　.Characters(3, 1).PhoneticCharacters = "サキ"
　　　　.Characters(4, 1).PhoneticCharacters = "メイ"
　　End With
　　With Range("C1")
　　　　.Value = "銀行"
　　　　.Font.Size = 9
　　　　.Characters(1, 2).PhoneticCharacters = "ギンコウ"
　　End With
　　With Range("E1")
　　　　.Value = "消費税(A)"
　　　　With .Font
　　　　　　'.Name = "ＭＳＰゴシック"
　　　　　　'.FontStyle = "標準"
　　　　　　.Size = 9
　　　　　　'.Strikethrough = False
　　　　　　'.Superscript = False
　　　　　　'.Subscript = False
　　　　　　'.OutlineFont = False
　　　　　　'.Shadow = False
　　　　　　'.Underline = xlUnderlineStyleNone
　　　　　　'.ColorIndex = xlAutomatic
　　　　End With
　　　　.Characters(1, 3).PhoneticCharacters = "ショウヒゼイ"
　　End With
　　Sheets("Sheet1").Name = "支払DB"
　　ActiveWorkbook.SaveAs Filename:="C:\支払DB.xls", FileFormat:=xlNormal, _
　　　　Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
　　　　CreateBackup:=False
　　Application.ScreenUpdating = True
End Sub

1 hits

▼

【40636】vbaの基本質問 Bnl_f15 06/7/19(水) 14:44