過去ログ

                                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列の数字のみのセルを指定する場合、どのような記述になるのでしょか。?
もうひとつ、複数のシートの場合の指定方法もわかりますでしょうか?
宜しくお願い致します。
 ───────────────────────────────────────  ■題名 : Re:単価のみを一括  ■名前 : りん <rin_doggie@hotmail.com>  ■日付 : 02/11/1(金) 21:12  -------------------------------------------------------------------------
   す〜 さん、こんばんわ。

「一括で変換」という意味がよくわかりませんので、わかるところだけ。

>たとえば(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列の数値のセルだけがセットされます。
 ───────────────────────────────────────  ■題名 : Re:単価のみを一括  ■名前 : す〜 <kaz2000@izu.co.jp>  ■日付 : 02/11/5(火) 9:52  -------------------------------------------------------------------------
   ありがとうございました。
なぞが解けました^^
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 290