Excel VBA質問箱 IV

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

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


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

41173 / 76732

←次へ　｜　前へ→


	【40640】Re:vbaの基本質問

ひげくま - 06/7/19(水) 15:14 -


	引用なし

	パスワード

▼Bnl_f15 さん：
こんにちは。

> 質問１：Application.ScreeUpdating = False
>　　　　・
>　　　　・
>　　　　 Application.ScreeUpdating = Treu

スペルが違いますね。
スクリーンのアップデイトを制御するわけですから、
Scree ではなくて、Screen ですね。

あと、Treu ではなく、True ですね。

> 質問２：ＶＢの知識は無いため、自動登録方式で以下のコードを作りましたが、
>　　　　なんか長くて、見づらいと思います。その中に余分なコードはあり
>　　　　ますか？または簡素化できるのでしょうか？

以下のコードで大丈夫だと思います。

Sub Macro1()
　　'スクリーンアップデイト禁止(ちらつき防止処理開始)
　　Application.ScreenUpdating = False

　　'動作１：シート全体の「セルを結合する」をOFFにする。
　　Cells..MergeCells = False

　　'動作２：行1:3を削除する。
　　Rows("1:3").Delete Shift:=xlUp

　　'動作３：列A:A,D:D,E:Eを削除する。
　　Range("A:A,D:D,E:E").Delete Shift:=xlToLeft

　　'動作４：セルA1に「コード」、B1に「取引先名」、C1に「銀行」を入力する。
　　Range("A1").Value = "コード"
　　Range("B1").Value = "取引先名"
　　Range("C1").Value = "銀行"

　　'動作５：セルE1の消費税の後ろに「(A)」を入力する。
　　Range("E1").Value = "消費税(A)"

　　'動作６：シート名称を変更する。
　　ActiveSheet.Name = "支払DB"

　　'動作７：ファイル名を付けて、保存する。
　　ActiveWorkbook.SaveAs Filename:="C:\支払DB.xls"

　　'スクリーンアップデイト許可(ちらつき防止処理解除)
　　Application.ScreenUpdating = True
End Sub

0 hits

▼

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