Excel VBA質問箱 IV

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

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


33568 / 76734 ←次へ | 前へ→

【48382】Re:検索し、置換するには?
回答  Hirofumi  - 07/4/15(日) 15:32 -

引用なし
パスワード
   ゴメン、「Public Sub Sample()」、「Public Sub Sample2()」も
以下の部分のコードが抜けていましたので追加して下さい

  With rngResult.Parent
    'Sheet2データ行数を取得
    lngRows = .UsedRange.Rows.Count
    '行が無い場合
    If lngRows <= 0 Then
      strProm = "Sheet2にデータが有りません"
      GoTo Wayout
    End If
    'Sheet2データ列数を取得
    lngColumns = .UsedRange.Columns.Count
    '列が1の場合
    If lngColumns <= 0 Then
      lngColumns = 2
    End If
    '入力範囲先頭を再設定 ★追加
    Set rngResult = .UsedRange.Item(1, 1) '★追加
  End With

5 hits

【48377】検索し、置換するには? MAKI 07/4/15(日) 2:09 質問
【48378】Re:検索し、置換するには? Hirofumi 07/4/15(日) 8:03 回答
【48379】Re:検索し、置換するには? Hirofumi 07/4/15(日) 8:27 回答
【48382】Re:検索し、置換するには? Hirofumi 07/4/15(日) 15:32 回答
【48381】Re:検索し、置換するには? Kein 07/4/15(日) 11:44 回答
【48388】Re:検索し、置換するには? MAKI 07/4/15(日) 23:13 お礼

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