Excel VBA質問箱 IV

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

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


21179 / 76732 ←次へ | 前へ→

【60955】Re:色づけ
発言  つん  - 09/3/26(木) 23:17 -

引用なし
パスワード
   こんばんは

>*くやしい〜  go to しか思いつかなかったぁ〜
>もしかして、つんさんがもっと良いコードを見せてくれるかも・・・(へへ)

あれ?最初見たときは「りんさん」に期待されてたような^^;
最近りんさんは見に来てはらへんのかなあ・・・・
りんさんの回答なら心強いのですが・・・

とりあえず、昼間ぐちゃぐちゃといじくってたコードです

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim s As String
  Dim i As Long
  Dim k As Long
  
  If Target.Column >= 3 Then Exit Sub
  
  
  If IsNumeric(Cells(Target.Row, 1).Value) = True Then
    For i = 1 To Cells(Target.Row, 1).Value
      s = s & "◆"
    Next i
    k = Cells(Target.Row, 1).Value
  Else
    k = 0
  End If
  
  If IsNumeric(Cells(Target.Row, 2).Value) = True Then
    For i = 1 To Cells(Target.Row, 2).Value
      s = s & "●"
    Next i
  End If
  
  Application.EnableEvents = False
  With Cells(Target.Row, 3)
    .Value = ""
    .Value = s
    If .Value <> "" Then
      .Characters(1, k).Font.ColorIndex = 3
      .Characters(k + 1, Len(.Value)).Font.ColorIndex = 4
    End If
  End With
  Application.EnableEvents = True
  
End Sub

半分以上、友人が作ったのをアレンジしたんですが^^;;;
「数値」以外が入力された時は対応出来てるけど、
少数や負の数字の時はちゃんと出来てませんね。

あらかじめ、入力規則で、正の整数しか入力できないようにしとくのがいいのかなあ?

好き勝手にやってますが(すみませんっ)、Q&Aさん大丈夫かな?
0 hits

【60931】色づけ Q&A 09/3/25(水) 13:54 質問
【60932】Re:色づけ Jaka 09/3/25(水) 14:48 発言
【60934】Re:色づけ つん 09/3/25(水) 15:24 発言
【60936】Re:色づけ Abebobo 09/3/25(水) 20:34 発言
【60937】Re:色づけ Q&A 09/3/25(水) 23:20 質問
【60940】Re:色づけ Abebobo 09/3/25(水) 23:58 発言
【60938】Re:色づけ Abebobo 09/3/25(水) 23:43 発言
【60941】Re:色づけ Q&A 09/3/26(木) 0:34 お礼
【60943】Re:色づけ Abebobo 09/3/26(木) 2:26 発言
【60946】Re:色づけ つん 09/3/26(木) 11:26 発言
【60952】Re:色づけ Abebobo 09/3/26(木) 21:21 発言
【60955】Re:色づけ つん 09/3/26(木) 23:17 発言
【60958】Re:色づけ Abebobo 09/3/27(金) 11:39 発言
【60959】Re:色づけ つん 09/3/27(金) 12:59 発言

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