Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2058 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【70309】データが存在する最終行までオートフィルでコピーしたい KOKO 11/10/31(月) 21:44 質問[未読]
【70310】Re:データが存在する最終行までオートフィ... UO3 11/10/31(月) 21:55 回答[未読]
【70312】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 9:37 お礼[未読]
【70311】Re:データが存在する最終行までオートフィ... kanabun 11/10/31(月) 23:20 発言[未読]
【70313】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 9:40 回答[未読]
【70314】Re:データが存在する最終行までオートフィ... kanabun 11/11/1(火) 11:41 発言[未読]
【70315】Re:データが存在する最終行までオートフィ... KOKO 11/11/1(火) 13:59 お礼[未読]
【70309】データが存在する最終行までオートフィル...
質問  KOKO  - 11/10/31(月) 21:44 -
引用なし
パスワード
   VBA初心者です。よろしくお願い致します。

B5に入っている関数=TEXT(A5,"yymm")を
A列のデータが入っている最終行までオートフィルで
コピーするVBAはどのように記述するのでしょうか？

よろしくお願い致します。
【70310】Re:データが存在する最終行までオートフ...
回答  UO3  - 11/10/31(月) 21:55 -
引用なし
パスワード
   ▼KOKO さん：

こんなことでしょうか？

Sub Sample()
　　Range("A5", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　Range("B5").Formula
End Sub
【70311】Re:データが存在する最終行までオートフ...
発言  kanabun  - 11/10/31(月) 23:20 -
引用なし
パスワード
   ▼KOKO さん：
>B5に入っている関数=TEXT(A5,"yymm")を
>A列のデータが入っている最終行までオートフィルで
>コピーするVBAはどのように記述するのでしょうか？

手動なら、[B5]セルの（右下のフィルハンドルのダブルクリック）
ですけど？
VBAにする目的はなんでしょう？
【70312】Re:データが存在する最終行までオートフ...
お礼  KOKO  - 11/11/1(火) 9:37 -
引用なし
パスワード
   ▼UO3 さん：

ご回答ありがとうございました！
やりたかったことができました。

ありがとうございます。


>▼KOKO さん：
>
>こんなことでしょうか？
>
>Sub Sample()
>　　Range("A5", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Formula = _
>　　　　　　　　　　　　　　　　　　　　　　　　　　　　Range("B5").Formula
>End Sub
【70313】Re:データが存在する最終行までオートフ...
回答  KOKO  - 11/11/1(火) 9:40 -
引用なし
パスワード
   ▼kanabun さん：

ある作業をすべて自動化しているのですが
そのなかの一作業となります。
ちょっと質問の情報が少なかったです。すみません。


>▼KOKO さん：
>>B5に入っている関数=TEXT(A5,"yymm")を
>>A列のデータが入っている最終行までオートフィルで
>>コピーするVBAはどのように記述するのでしょうか？
>
>手動なら、[B5]セルの（右下のフィルハンドルのダブルクリック）
>ですけど？
>VBAにする目的はなんでしょう？
【70314】Re:データが存在する最終行までオートフ...
発言  kanabun  - 11/11/1(火) 11:41 -
引用なし
パスワード
   ▼KOKO さん：こんにちは〜

>▼kanabun さん：
>
>ある作業をすべて自動化しているのですが
>そのなかの一作業となります。
>ちょっと質問の情報が少なかったです。すみません。

「すべて自動化」ですか？
なら、[B5]セルに数式を埋め込む処理もマクロで、ってことですよね。

つまり、
　Range("A5", Cells(Rows.Count, 1).End(xlUp)) _
　　.Offset(, 1).Formula = "=TEXT(A5,""yymm"")"

こうですか？(^^
【70315】Re:データが存在する最終行までオートフ...
お礼  KOKO  - 11/11/1(火) 13:59 -
引用なし
パスワード
   ▼kanabun さん：

ご回答ありがとうございます！
実現できました。

ありがとうございました。

>▼KOKO さん：こんにちは〜
>
>>▼kanabun さん：
>>
>>ある作業をすべて自動化しているのですが
>>そのなかの一作業となります。
>>ちょっと質問の情報が少なかったです。すみません。
>
>「すべて自動化」ですか？
>なら、[B5]セルに数式を埋め込む処理もマクロで、ってことですよね。
>
>つまり、
>　Range("A5", Cells(Rows.Count, 1).End(xlUp)) _
>　　.Offset(, 1).Formula = "=TEXT(A5,""yymm"")"
>
>こうですか？(^^
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2058 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free