□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ～ん。誰か～！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[2]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう

    [195279] Re[2]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2022/09/23(23:18))
    □U R L/

      一樹さん
      ＞書式設定はどうなってますかね？
      　表示形式を「標準」から「文字列」に変更でした。

      asahishi さん
      ①、②勉強になりました。

      ＞①　マクロで値を拾ったり表示させるセルを予めセルの書式設定で
      　　表示形式を「標準」から「文字列」に変更するのでは駄目でしょうか・・・

      ＞②・日付にしない方法
      　ttps://atmarkit.itmedia.co.jp/ait/articles/2203/14/news024.html

      ①、②で試したら
      うまくいきました。
      ありがとうございました。

      ＞ Text プロパティを使って実際に表示
      今度やってみます。
      *************＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
      一樹さん、asahishi さん
      お二人さんのご指導で解決いたしました。
      お二人に感謝です。




      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



    [195278] Re[1]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■記事引用/メール受信=OFF■

    □投稿者/ asahishi -(2022/09/23(21:44))
    □U R L/

      　初めまして。

      　まず前置きですが自分は Excel に関しては知識が怪しいのであまり鵜呑みにはしないで下さい・・・

      　まずコード１に関してですが

      ｜ m = m + 1

      だとＡＢ列に空行が出ずに連続で出てしまうみたいなので

      ｜ m = m + 2

      と変更しました。

      　で、こちらの環境（Windows XP + Excel 2010）では日付に変換されず普通に実行出来てしまいました・・・

      　ところでマクロの話題ではなくなってしまうかもですがマクロで値を拾ったり表示させるセルを予めセルの書式設定で表示形式を「標準」から「文字列」に変更するのでは駄目でしょうか・・・

      　古いエクセルでは普通に動いていたマクロなのかも知れません・・・

      　ちょっとググってみましたがマクロで対処するなら Value プロパティではなく Text プロパティを使って実際に表示されている状態を取得する事でうまくいくかも知れません・・・

      　外部サイトですが以下のページとかが参考になるかも知れません・・・

      　・Text プロパティ等に関して
      　ttp://officetanaka.net/excel/vba/tips/tips115.htm

      　・日付にしない方法
      　ttps://atmarkit.itmedia.co.jp/ait/articles/2203/14/news024.html

      　少しでも参考になれば幸いです・・・

      　よく分からない場合は他の方のアドバイスを御待ち下さい・・・



    [195277] Re[3]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■記事引用/メール受信=OFF■

    □投稿者/ 一樹 -(2022/09/23(21:38))
    □U R L/

      書式設定はどうなってますかね？
      ここを変更していないのであれば解りませんです。



    [195276] Re[2]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2022/09/23(21:16))
    □U R L/

      一樹 さん
      ＞頭に ^ がついてないってことはないですか？

      ^　が頭についてます。

      Ｆ列の値　と　ＡＢ列の値にも

      頭に ^ がついてます。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



    [195275] Re[1]: 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■記事引用/メール受信=OFF■

    □投稿者/ 一樹 -(2022/09/23(21:05))
    □U R L/

      頭に ^ がついてないってことはないですか？



    [195274] 値をそのまま取得、しかしある一部が年月日付に変わってしまう-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2022/09/23(20:28))
    □U R L/ 
      前にお世話になったものです。

Sheet1　読み込みシート（本元データ）Ｆ30行からＦ47行の

値をそのまま取得したいんですが、

年月日付に変わってしまいます。

そのままの値を取得したいのですが

アドバイスよろしくお願いいたします。

　　（コード１）
      m = 2
     For i = 30 To 47 Step 2　　　　　　　　　　’30行から2行目づつ行う
     Worksheets("Sheet1").Cells(m, "AB").Value = _
     Worksheets("Sheet1").Cells(i, "F").Value 　’Sheet1のＦ３０の値をSheet1のＡＢ２へ取得
     m = m + 1
     Next

　　（コード２）
     Worksheets("Sheet1").Range("A30:R47").Value = _
              Worksheets("Sheet1").Range("N2:AE19").Value
　　              ’Sheet1のN2:AE19値をSheet1のA30:R47に取得する
　　　　　　　　　’N2:AE19値は、他のデータも含まれてます。

Sheet1　読み込みシート（本元データ）

　　　　　　Ｆ列

30行      ^02-02
31行      
32行      ^05-04
33行
34行      ^06-06-07-07
35行
36行      ^02-03-03-03
37行
38行      ^08-08-11
39行
40行      ^03-04-03-03
41行
42行      ^06-08-08-08
43行
　。
　。
47行

このようにSheet1の読み込まれてます。
（コード１）を起動

Sheet1　（コード１）を起動

　　　　　　ＡＢ列

02行      ^02-02
03行      
04行      ^05-04
05行
06行      ^06-06-07-07
07行
08行      ^02-03-03-03
09行
10行      ^08-08-11
11行
12行      ^03-04-03-03
13行
14行      ^06-08-08-08
15行
　。
　。
19行


Ｆ３０からそのままの値で取得してます。

（コード２）を起動

ここからが問題点なんです。

このようになってしまいます。

Sheet1　（コード２）を起動

　　　　　　Ｏ列

30行      2月2日
31行      
32行      5月4日
33行
34行      ^06-06-07-07
35行
36行      ^02-03-03-03
37行
38行      2011/8/8
39行
40行      ^03-04-03-03
41行
42行      ^06-08-08-08
43行
　。
　。
47行


02-02、05-04　と　08-08-11

（コード２）を起動すると

年月日付になってしまいす。

（本元データ）のＦ３０からＦ４７の値を
そのまま値を（コード２）で取得できないんでしょうか。

すいませんが
アドバイスお願いいたします。



      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ