Page 290 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ INDEX ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼単価のみを一括 す〜 02/11/1(金) 13:39 ┗Re:単価のみを一括 りん 02/11/1(金) 21:12 ┗Re:単価のみを一括 す〜 02/11/5(火) 9:52 ─────────────────────────────────────── ■題名 : 単価のみを一括 ■名前 : す〜 <kaz2000@izu.co.jp> ■日付 : 02/11/1(金) 13:39 -------------------------------------------------------------------------
見積書の単価のみを一括で変換したいのですが、セルの範囲指定の仕方がわかりません。 たとえば(F列の数字のみのセルを指定する場合、どのような記述になるのでしょか。? もうひとつ、複数のシートの場合の指定方法もわかりますでしょうか? 宜しくお願い致します。 |
す〜 さん、こんばんわ。 「一括で変換」という意味がよくわかりませんので、わかるところだけ。 >たとえば(F列の数字のみのセルを指定する場合、どのような記述になるのでしょか。? 数値のセルがないとエラーになるので、念のためエラースキップをつけておきます。 Sub Test() On Error Resume Next Set r1 = ActiveSheet.Columns(6).SpecialCells(xlCellTypeConstants, xlNumbers) On Error Goto 0 If Not r1 Is Nothing Then r1.Interior.ColorIndex = 44 'オレンジに着色 End If End Sub でr1にF列の数値のセルだけがセットされます。 |
ありがとうございました。 なぞが解けました^^ |