Excel VBA質問箱 IV

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

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


49063 / 76732 ←次へ | 前へ→

【32592】Re:文字の選別
回答  Kein  - 05/12/18(日) 20:20 -

引用なし
パスワード
   各セルに入力するところが分からないのでしょーか ?
ちょっとやり方を変えて・・

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Long, x As Long

  With Target
   If .Address <> "$A$1" Then Exit Sub
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   If IsNumeric(.Value) Then Exit Sub
   Application.EnableEvents = False
   For i = 0 To 9
     x = InStr(1, i, .Value)
     If x > 1 Then
      .Offset(, 1).Value = Left(.Value, x - 1)
      .Offset(, 2).Value = Mid(.Value, x)
      Exit For
     End If
   Next i
  End With
  Application.EnableEvents = True
End Sub

というイベントマクロをシートモジュールに入れ、A1に "文字+数値" のデータを
入力してみて下さい。
1 hits

【32570】文字の選別 俊之 05/12/18(日) 14:25 質問
【32571】Re:文字の選別 かみちゃん 05/12/18(日) 14:37 発言
【32572】Re:文字の選別 俊之 05/12/18(日) 14:44 質問
【32573】Re:文字の選別 かみちゃん 05/12/18(日) 14:53 発言
【32574】Re:文字の選別 俊之 05/12/18(日) 15:03 質問
【32575】Re:文字の選別 かみちゃん 05/12/18(日) 15:15 発言
【32577】Re:文字の選別 俊之 05/12/18(日) 15:30 質問
【32578】Re:文字の選別 かみちゃん 05/12/18(日) 15:35 発言
【32591】Re:文字の選別 ichinose 05/12/18(日) 20:16 発言
【32592】Re:文字の選別 Kein 05/12/18(日) 20:20 回答
【32600】Re:文字の選別 awu 05/12/19(月) 11:17 回答
【32607】Re:文字の選別 俊之 05/12/19(月) 14:48 お礼

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