Excel VBA質問箱 IV

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

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


28250 / 76732 ←次へ | 前へ→

【53784】Re:書式について
発言  VBWASURETA  - 08/2/7(木) 10:33 -

引用なし
パスワード
   ▼ハチ さん、ゆう さん:
こんにちは。

多分、数値だけの話で、文字書式になっていると全角の「1」を入れても
数字にならないということだけではないでしょうか?
ハチ さんの案で以下の感じだけでいけそうですよ。

Dim m_StrAddress As String

'編集変化がある場合に発生するイベント
Private Sub Worksheet_Change(ByVal Target As Range)
  With ActiveSheet.Range(m_StrAddress)
    If .NumberFormatLocal = "@" And IsNumeric(.Value) Then
      'キープしたアドレスから書式変更
      .NumberFormatLocal = "G/標準"
    End If
  End With
End Sub

'カーソルが移動しただけでも発生するイベント
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  m_StrAddress = Target.Address  'とりあえずアドレスキープ
End Sub
0 hits

【53771】書式について ゆう 08/2/6(水) 19:18 質問
【53773】Re:書式について ゆう 08/2/6(水) 19:35 質問
【53774】Re:書式について ハチ 08/2/6(水) 19:39 回答
【53775】Re:書式について ゆう 08/2/6(水) 19:46 発言
【53777】Re:書式について ハチ 08/2/6(水) 20:32 発言
【53784】Re:書式について VBWASURETA 08/2/7(木) 10:33 発言
【53787】Re:書式について ハチ 08/2/7(木) 11:27 発言
【53786】Re:書式について Jaka 08/2/7(木) 11:04 発言
【53788】追加 Jaka 08/2/7(木) 11:51 発言

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