| |
ある決まっているアクションをマクロに纏めましたが、いくつかの質問をさせて
いただきますので、よろしくお願いします。
動作１：シート全体の「セルを結合する」をOFFにする。
動作２：行1:3を削除する。
動作３：列A:A,D:D,E:Eを削除する。
動作４：セルA1に「コード」、B1に「取引先名」、C1に「銀行」を入力する。
動作５：セルE1の消費税の後ろに「(A)」を入力する。
動作６：シート名称を変更する。
動作７：ファイル名を付けて、保存する。
質問１：Application.ScreeUpdating = False
・
・
Application.ScreeUpdating = Treu
画面のちらつきを抑制するため、以上のコードをいれたら、
サポートしませんというメッセージがでています。
解決方法はあるのでしょうか？
質問２：ＶＢの知識は無いため、自動登録方式で以下のコードを作りましたが、
なんか長くて、見づらいと思います。その中に余分なコードはあり
ますか？または簡素化できるのでしょうか？
Sub Macro1()
Application.ScreeUpdating = False
Cells.Select
With Selection
.Orientation = 0
.AddIndent = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A:A,D:D,E:E").Select
Range("E1").Activate
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ActiveCell.FormulaR1C1 = "コード"
With ActiveCell.Characters(Start:=1, Length:=3).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B1").Select
ActiveCell.FormulaR1C1 = "取引先名"
With ActiveCell.Characters(Start:=1, Length:=4).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Characters(1, 2).PhoneticCharacters = "トリヒキ"
ActiveCell.Characters(3, 1).PhoneticCharacters = "サキ"
ActiveCell.Characters(4, 1).PhoneticCharacters = "メイ"
Range("C1").Select
ActiveCell.FormulaR1C1 = "銀行"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Characters(1, 2).PhoneticCharacters = "ギンコウ"
Range("E1").Select
ActiveCell.FormulaR1C1 = "消費税(A)"
With ActiveCell.Characters(Start:=1, Length:=6).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Characters(1, 3).PhoneticCharacters = "ショウヒゼイ"
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "支払DB"
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\支払DB.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.ScreeUpdating = Treu
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 06/7/19(水) 14:44 -
