石鹸箱 IV

VBA研究所に集まる方々の憩いの場です。みなさん自由にお使いください。
ここでは VBA の質問は厳禁。
  ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4854 / 5126 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【2189】表示形式は日付か？ Jaka 08/1/28(月) 15:24
【2189】表示形式は日付か？
 Jaka  - 08/1/28(月) 15:24 -
引用なし
パスワード
   ついでに田中さんとこでセルの表示形式は日付か？ってな質問があったと思います。
考えてみました。
A1:A20が対象セル。

Sub 日付か()
Range("B1:B20").ClearContents
For i = 1 To 20
　If IsDate(Cells(i, 1).Value) Then
　　 If Not (IsNumeric(Cells(i, 1).Value)) Then
　　　 If Cells(i, 1).Value = Cells(i, 1).Value2 Then
　　　　　If Application.Phonetic(Cells(i, 1)) = "" Then
　　　　　　　'MsgBox "日付" & vbLf & i
　　　　　　 Cells(i, 2).Value = "書式が日付"
　　　　　End If
　　　 End If
　　 End If
　End If
Next
End Sub
  ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
4854 / 5126 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
219927
(SS)C-BOARD v3.8 is Free