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ではどう記述したらよいのでしょうか。

先頭に '（アポストロフィー）をつけて入力してみてください。
ｈｔｔｐ://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"))
　　'****は、ｈｔｔｐを半角にしてください。
　　.Name = Replace(strURL, "****://", "")
　　.AdjustColumnWidth = False
　　.WebSelectionType = xlEntirePage
　　.WebFormatting = xlWebFormattingNone
　　.WebDisableDateRecognition = True '★
　　.Refresh BackgroundQuery:=False
End With

これの意味は、Webクエリを手作業でするときに、
「新しいWebクエリ」の「オプション」で、「日付認識を無効に
する」にチェックを入れることで回避するということです。
ｈｔｔｐ://support.microsoft.com/kb/287027/ja
（先頭４文字は、全角になっていますので、半角にしてください。）
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5379 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free