Excel VBA質問箱 IV

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

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


13982 / 76733 ←次へ | 前へ→

【68251】Re:小数点2桁のみを取得したく、お願いします
質問  Yoshi  - 11/2/17(木) 15:33 -

引用なし
パスワード
   皆様 
色々とご検討ありがとうございます。
B2-6.25 B4-6.31 B6-6.41 B8-6.62 B10-6.78・・・・とずっとあるのですが、
6.31は本当は6.30なのですが、巧くピックアップできないので、仮のお数字です。
小生のコードは以下の通りです。

Sub test()
Sheets("sheet3").Activate
Application.ScreenUpdating = False
  Dim i As Double, k As Long, m As Long
  For m = 3 To Cells(Rows.Count, 2).End(xlUp).Row + 1 Step 2
    Rows(m).Interior.ColorIndex = xlNone
  Next m
  For k = 2 To 20 Step 2
    i = Strings.Right(Cells(k, 2), 2) / 4 'この行のコードです
    Range(Cells(k + 1, 3), Cells(k + 1, i + 2)).Interior.ColorIndex = 3
  Next k
  For m = 3 To 50 Step 2
    Columns(m).Interior.ColorIndex = xlNone
    Columns(m).ColumnWidth = 0.2
    Columns(m + 1).ColumnWidth = 0.3
  Next m
Application.ScreenUpdating = False
End Sub

よろしくお願いします。

1 hits

【68235】小数点2桁のみを取得したく、お願いします Yoshi 11/2/17(木) 10:09 質問
【68236】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 10:28 発言
【68251】Re:小数点2桁のみを取得したく、お願いし... Yoshi 11/2/17(木) 15:33 質問
【68253】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 19:02 回答
【68239】Re:小数点2桁のみを取得したく、お願いし... とおりすがり 11/2/17(木) 10:31 回答
【68241】Re:小数点2桁のみを取得したく、お願いし... りん 11/2/17(木) 10:48 発言
【68247】Re:小数点2桁のみを取得したく、お願いし... neptune 11/2/17(木) 13:38 回答
【68248】Re:小数点2桁のみを取得したく、お願いし... りん 11/2/17(木) 14:03 発言
【68242】Re:小数点2桁のみを取得したく、お願いし... Yuki 11/2/17(木) 10:56 発言
【68276】Re:小数点2桁のみを取得したく、お願いし... Yoshi 11/2/20(日) 8:57 お礼

13982 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free