●EXCEL・VBAの教えて ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
142:デフォルトの名無しさん 07/02/02 00:39:30 ここで無限ループ使った回答したら、素人にはブラクラ並の攻撃かもしれない と、ふと思った 143:デフォルトの名無しさん 07/02/02 00:47:28 こっちのほうが安全じゃない？ my_Row= Range("a65536").End(xlUp).Row for i = 1 to my_row 処理 next i 144:デフォルトの名無しさん 07/02/02 00:48:48 そのままなら、こっちか。 my_Row= Range("a65536").End(xlUp).Row Do While rng.Row <=　my_row 145:デフォルトの名無しさん 07/02/02 00:52:51 >>141 Option Explicit Option Base 1 Sub testTwo() '変数定義 Dim row As Long row = 1 '正午のデータだけ取得 Do While row < 65500 If row Mod 24 <> 1 Then ActiveSheet.Range(Cells(row, 1), Cells(row, 2)).ClearContents End If row = row + 1 Loop End Sub 正午以外を消して空白を残す。 24行ごとに値があること前提だけども…。 手抜きでスマソ、そろそろ寝ようかと…。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5399日前に更新/123 KB
担当:undef