Excel VBA質問箱 IV

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

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


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

23779 / 76738

←次へ　｜　前へ→


	【58319】変数 n を使いたいのですが・・・

Mimi - 08/10/18(土) 19:08 -


	引用なし

	パスワード

　こんにちは。
下記のようなコードの中で変数 n を使う方法が判りません。

n = 58　　
　　Do Until ActiveCell = "rst"　　　
　　　　ActiveCell.Offset(-1, 0).Select
　　　　n = n - 1
　　　　If n = 1 Then
　　Exit Sub
　　End If
　　Loop

　　If ActiveCell = "rst" Then　　
　　
　　Range(Cells(1, 1), Cells(n, 8)).Select
　　　　ActiveSheet.PageSetup.PrintArea = "$A$1:$H$n"
　　　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　　Rows("1:n").Select
　　Selection.Delete Shift:=xlUp

以下、続きますが"$A$1:$H$n"とRows("1:n")とするとエラーになります。
どのように記述したら良いのでしょうか？
どなたか教えて頂けませんか。
宜しくお願いします。

0 hits

▼

【58319】変数 n を使いたいのですが・・・ Mimi 08/10/18(土) 19:08

≪