Excel VBA質問箱 IV

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

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


51816 / 76732 ←次へ | 前へ→

【29773】Re:金額を1桁ずつ分けて表示させたい
回答  seiya  - 05/10/13(木) 14:16 -

引用なし
パスワード
   だいぶ変わりましたね。

Sub test()
Dim rng As Range, r As Range, c As Range, txt As String
Dim i As Integer, n As Integer, j As Integer, x As Integer
With Sheets("sheet1")
  Set rng = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp)).Resize(, 5)
End With
  For Each r In rng
    If r.Column = 1 Then
      Set c = Sheets("sheet2").Range("g6").Offset(n)
      c = r
      n = n + 10: j = 0
    ElseIf Not IsEmpty(r) Then
      txt = Replace(r.Text, "-", "△")
      txt = Replace(txt, ",", "") '<-- カンマも必要なら削除
      x = Len(txt)
      With c.Offset(j, 9)
        For i = 1 To x
          .Offset(, -(x - i)) = Mid(txt, i, 1)
        Next
      End With
      j = j + 1
    Else
      j = j + 1
    End If
  Next
End Sub

0 hits

【29768】金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 11:57 質問
【29769】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 12:25 回答
【29770】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 12:53 発言
【29772】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 13:48 質問
【29773】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 14:16 回答
【29775】Re:金額を1桁ずつ分けて表示させたい ハル 05/10/13(木) 15:27 お礼
【29774】Re:金額を1桁ずつ分けて表示させたい seiya 05/10/13(木) 14:29 回答

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