Excel VBA質問箱 IV

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

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


10916 / 13644 ツリー ←次へ | 前へ→

【19192】最終行の値について KKK3 04/10/24(日) 22:44 質問[未読]
【19193】Re:最終行の値について ichinose 04/10/24(日) 22:50 回答[未読]
【19194】Re:最終行の値について KKK3 04/10/24(日) 23:06 質問[未読]
【19196】Re:最終行の値について KKK3 04/10/24(日) 23:47 質問[未読]
【19197】Re:最終行の値について ichinose 04/10/25(月) 0:01 発言[未読]
【19198】Re:最終行の値について KKK3 04/10/25(月) 0:06 お礼[未読]

【19192】最終行の値について
質問  KKK3  - 04/10/24(日) 22:44 -

引用なし
パスワード
   こんばんは。すみませんが、VBAを勉強しはじめた
者です。最終行の値をセルk1に貼り付けたいのですが、
以下の内容ではだめなのでしょうか?

lstRow = Range("B65536").End(xlUp).Row
  Range("K1") = lstRow.Text

【19193】Re:最終行の値について
回答  ichinose  - 04/10/24(日) 22:50 -

引用なし
パスワード
   ▼KKK3 さん:
こんばんは。

>こんばんは。すみませんが、VBAを勉強しはじめた
>者です。
アクティブシートのB列に入力されている最終行の値をセルk1に貼り付けたいのですが、以下の内容ではだめなのでしょうか?
>
  Range("K1").Value = Range("B65536").End(xlUp).Value

として下さい。

【19194】Re:最終行の値について
質問  KKK3  - 04/10/24(日) 23:06 -

引用なし
パスワード
   ありがとうございます。
最後にもう1つ質問させてください。
オートフィルターで5列について
H15.4.1〜H16.3.31までを抽出したいのですが、
まったく抽出されません。以下の内容では
だめなのでしょうか?ちなみに
マクロの自動記録で作成しのですが。
宜しくお願いします。

.AutoFilter Field:=5, Criteria1:=">=H15.4.1", Operator:=xlAnd, _
      Criteria2:="<=H16.3.31"

【19196】Re:最終行の値について
質問  KKK3  - 04/10/24(日) 23:47 -

引用なし
パスワード
   すみませんでした。5列ではなく、E列についてです。
宜しくお願いします。

▼KKK3 さん:
>ありがとうございます。
>最後にもう1つ質問させてください。
>オートフィルターで5列について
>H15.4.1〜H16.3.31までを抽出したいのですが、
>まったく抽出されません。以下の内容では
>だめなのでしょうか?ちなみに
>マクロの自動記録で作成しのですが。
>宜しくお願いします。
>
>.AutoFilter Field:=5, Criteria1:=">=H15.4.1", Operator:=xlAnd, _
>      Criteria2:="<=H16.3.31"

【19197】Re:最終行の値について
発言  ichinose  - 04/10/25(月) 0:01 -

引用なし
パスワード
   ▼KKK3 さん:
>すみませんでした。5列ではなく、E列についてです。
>宜しくお願いします。
>
>▼KKK3 さん:
>>ありがとうございます。
>>最後にもう1つ質問させてください。
>>オートフィルターで5列について
>>H15.4.1〜H16.3.31までを抽出したいのですが、
>>まったく抽出されません。以下の内容では
>>だめなのでしょうか?ちなみに
>>マクロの自動記録で作成しのですが。
>>宜しくお願いします。
>>
.AutoFilter Field:=5, Criteria1:=">=2003/4/1", Operator:=xlAnd, _
      Criteria2:="<=2004/3/31"

とするとどうでしようか?

どうしてもH15.4.1の形式をコードに含めたいとすると一度変換しないと駄目ですね!!

.AutoFilter Field:=5, Criteria1:=">=" & _
       Format(Replace("H15.4.1", ".", " - "), "yyyy/m/d"), _
      Operator:=xlAnd, _
      Criteria2:="<=" & _
       Format(Replace("H16.3.31", ".", " - "), "yyyy/m/d")

【19198】Re:最終行の値について
お礼  KKK3  - 04/10/25(月) 0:06 -

引用なし
パスワード
   前者の方法でできました!
ありがとうございました。

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