Excel VBA質問箱 IV

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

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


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

41181 / 76736

←次へ　｜　前へ→


	【40636】vbaの基本質問

Bnl_f15

- 06/7/19(水) 14:44 -


	引用なし

	パスワード

ある決まっているアクションをマクロに纏めましたが、いくつかの質問をさせて
いただきますので、よろしくお願いします。

動作１：シート全体の「セルを結合する」を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

0 hits

▼

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

≪