Excel VBA質問箱 IV

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

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


5379 / 13646 ツリー ←次へ | 前へ→

【51194】題名が思いつきません。 おやじvba若葉マーク 07/9/2(日) 21:41 質問[未読]
【51195】Re:5-5-5と入力すると2005/5/5と表示されて... かみちゃん 07/9/2(日) 21:49 発言[未読]
【51199】Re:5-5-5と入力すると2005/5/5と表示されて... おやじvba若葉マーク 07/9/2(日) 22:38 質問[未読]
【51200】Re:5-5-5と入力すると2005/5/5と表示されて... かみちゃん 07/9/2(日) 23:09 発言[未読]
【51196】Re:題名が思いつきません。 maka 07/9/2(日) 21:52 発言[未読]
【51198】Re:題名が思いつきません。 おやじvba若葉マーク 07/9/2(日) 22:08 お礼[未読]

【51194】題名が思いつきません。
質問  おやじvba若葉マーク  - 07/9/2(日) 21:41 -

引用なし
パスワード
   例えばひとつのセルに
5-5-5-5と入力するとそのまま5-5-5-5と表示されるのですが
5-5-5と入力すると2005/5/5と表示されます。
5-5-5と入力しても5-5-5と表示させるにはどうしたらよいのでしょう。
また、VBAではどう記述したらよいのでしょうか。

【51195】Re:5-5-5と入力すると2005/5/5と表示され...
発言  かみちゃん  - 07/9/2(日) 21:49 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>例えばひとつのセルに
>5-5-5-5と入力するとそのまま5-5-5-5と表示されるのですが
>5-5-5と入力すると2005/5/5と表示されます。
>5-5-5と入力しても5-5-5と表示させるにはどうしたらよいのでしょう。
>また、VBAではどう記述したらよいのでしょうか。

先頭に '(アポストロフィー)をつけて入力してみてください。
http://www.officetanaka.net/excel/vba/cell/cell01.htm

【51196】Re:題名が思いつきません。
発言  maka  - 07/9/2(日) 21:52 -

引用なし
パスワード
   ▼おやじvba若葉マーク さん:
>例えばひとつのセルに
>5-5-5-5と入力するとそのまま5-5-5-5と表示されるのですが
>5-5-5と入力すると2005/5/5と表示されます。
>5-5-5と入力しても5-5-5と表示させるにはどうしたらよいのでしょう。
>また、VBAではどう記述したらよいのでしょうか。


こんばんは、ここに回答できるほどの知識はないのですが
「セルの書式設定」
  ↓
「表示形式」
  ↓
「文字列」

で設定できませんか?

また、記録マクロで下記のことが記録されますが・・・。
色々、試してみるといいかもしれません。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/9/2 ユーザー名 : NOZAWA
'

'
  Selection.NumberFormatLocal = "@"
  ActiveCell.FormulaR1C1 = "5-5-5"
  
End Sub

【51198】Re:題名が思いつきません。
お礼  おやじvba若葉マーク  - 07/9/2(日) 22:08 -

引用なし
パスワード
   かみちゃんさんとmakaさん
ありがとうございました。
5-5-5と表示できるようになりました。

【51199】Re:5-5-5と入力すると2005/5/5と表示され...
質問  おやじvba若葉マーク  - 07/9/2(日) 22:38 -

引用なし
パスワード
   ▼かみちゃん さん:
実は以前に
【49697】Re:webページ取得において
でお世話になっておるのですがコードの意味もわからず使用させてもらっているのですが、

Set FR = Columns("A").Find("日付", , , xlWhole)
 If Not FR Is Nothing Then
  Range("A2", FR.Offset(-1)).EntireRow.Delete xlShiftUp

の部分だと思うのですがこれだけでなぜ
日付から賞金までのデータが下部へ表示されるのかちんぷんかんぷんです。
取得した 通過 のところが5-5-5だと2005/5/5となるのです。
それを最初から5-5-5と取得出来ないのでしょうか。
図々しく質問してすみません。
  

【51200】Re:5-5-5と入力すると2005/5/5と表示され...
発言  かみちゃん E-MAIL  - 07/9/2(日) 23:09 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>実は以前に
>【49697】Re:webページ取得において
>でお世話になっておるのですがコードの意味もわからず使用させてもらっているのですが、
>
>Set FR = Columns("A").Find("日付", , , xlWhole)
> If Not FR Is Nothing Then
>  Range("A2", FR.Offset(-1)).EntireRow.Delete xlShiftUp
>
>の部分だと思うのですがこれだけでなぜ
>日付から賞金までのデータが下部へ表示されるのかちんぷんかんぷんです。

以前サンプルファイルをメールで送ってはあるのですが、
そのことをおっしゃっているのかなぁとは思っていました。

>取得した 通過 のところが5-5-5だと2005/5/5となるのです。
>それを最初から5-5-5と取得出来ないのでしょうか。

以前提示させていただいたコードのうち、以下の★の行を追加してみてください。

With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;" & strURL, Destination:=Range("A1"))
  '****は、httpを半角にしてください。
  .Name = Replace(strURL, "****://", "")
  .AdjustColumnWidth = False
  .WebSelectionType = xlEntirePage
  .WebFormatting = xlWebFormattingNone
  .WebDisableDateRecognition = True '★
  .Refresh BackgroundQuery:=False
End With

これの意味は、Webクエリを手作業でするときに、
「新しいWebクエリ」の「オプション」で、「日付認識を無効に
する」にチェックを入れることで回避するということです。
http://support.microsoft.com/kb/287027/ja
(先頭4文字は、全角になっていますので、半角にしてください。)

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