□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 一気に変換するには？ | |
|---|---|
[194900] 一気に変換するには？- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ よね -(2022/05/16(19:53)) □U R L/ A列にある日付データをループやエクセル関数を使わず 一気に”yyyy/mm/dd”にしたいです。 方法があれば教えて下さい。 A 1 20220516 2 20220517 3 20220518 4 20220519 5 20220520 6 20220521 7 20220522 8 20220523 | |
[194901] Re[1]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ よね -(2022/05/16(19:57)) □U R L/ すみません、上のデータにミスがありました。こちらのデータで宜しくお願いします。 A 1 202205160000 2 202205170000 3 202205180000 4 202205190000 5 202205200000 6 202205210000 7 202205220000 8 202205230000 | |
[194903] Re[2]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/05/16(21:34)) □U R L/ ループやエクセル関数を使えばできるのですか。 | |
[194904] Re[3]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ hatena -(2022/05/16(22:07)) □U R L/ 「ループやエクセル関数を使わずに」というのは難しいと思いますが、 なぜ、そうしたいのですか。 | |
[194905] Re[3]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/05/16(22:12)) □U R L/ 関数は得意でないので、もっとよいのがあるかもしれませんが、
こんな関数を使ってみました。
自分の理解しやすい式に変更してもよいです。。
=DATE(MID(A1:A2,1,4),MID(A1:A2,5,2),MID(A1:A2,7,2))
マクロでは、こんな感じ
Sub test()
Dim r As Range
Dim f As String
Set r = Columns(1).SpecialCells(xlCellTypeConstants)
f = "date(mid(" & r.Address & ",1,4),mid(" & r.Address & ",5,2),mid(" & r.Address & ",7,2))"
r.Value = Evaluate(f)
r.NumberFormatLocal = "yyyy/mm/dd"
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194906] Re[4]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ hatena -(2022/05/16(22:54)) □U R L/ For Each を使うなら、
Sub test1()
Dim r As Range, c As Range
Set r = Range("A1").CurrentRegion.Column(1)
For Each c In r
c.Value = Format(Left(c.Value, 8), "@@@@/@@/@@")
Next
r.NumberFormatLocal = "yyyy/mm/dd"
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194907] Re[5]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/05/16(23:16)) □U R L/ データ→区切り位置、で日付データ(シリアル値）になってくれた。
Sub Macro1()
With Columns("A")
.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 5), Array(8, 9))
.NumberFormatLocal = "yyyy/mm/dd"
End With
End Subこの記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194909] Re[6]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ よね -(2022/05/17(13:07)) □U R L/ マナさん、hatenaさん、半平太さん 教えて頂き、またコードもありがとうございました。 すみません、hatenaさんのはエラーが出て確認できませんでした。 （columns(1)に直しましたが次のステップでまたエラーになりました） 半平太さんのコードで教えて下さい。 実際のデータには見出しがあります。 半平太さんのコードを実行すると見出しが切れてしまいます。 これを防ぐ方法はありますか？ | |
[194910] Re[7]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ よね -(2022/05/17(13:48)) □U R L/ 半平太さん 範囲を「列」から「範囲」に変え、DestinationをA2にしたところ解決できました。 本当にありがとうございました。 | |
[194911] Re[8]: 一気に変換するには？- ■  / 記事引用/メール受信=OFF■
□投稿者/ よね -(2022/05/17(13:49)) □U R L/ 皆様、ありがとうございました。 | |
[194912] Re[7]: 一気に変換するには？- ■記事引用/メール受信=OFF■ □投稿者/ バババオ−レ -(2022/05/17(13:52)) □U R L/ どこかのセルに 10000 と書いてコピー。 データに形式を選択して貼り付けで、除算を選んで張り付け。 そのあと、データ区切り位置で日付を選んで完了。 少しおおざっぱだけどこれで終わり。 | |