Excel VBA質問箱 IV

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

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


7870 / 76734 ←次へ | 前へ→

【74445】Re:LAN内に作ったファイルのマクロがエラーになる
発言  Yuki  - 13/6/17(月) 9:37 -

引用なし
パスワード
   ▼isausa さん:
アクセスから取り込んだシート名は全端末一緒でしょうね。
端末によって行数が違うでしょうから
シート名を指定して行数を取得で書いてみました。

それと今アクセスから取込んでいるコードをUP出来たらUP
して下さい。

Sub ソート及び空白処理()
  Dim eRow  As Long
  With Worksheets("Sheet1")
    eRow = .Range("A" & .Rows.Count).End(xlUp).Row
    .Range("A2:G" & eRow).Sort Key1:=.Range("A3"), Order1:=xlAscending, _
                  Key2:=.Range("D3"), Order2:=xlDescending, _
                  Key3:=.Range("E3"), Order3:=xlAscending, _
                  Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
                  Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
                  DataOption1:=xlSortNormal, _
                  DataOption2:=xlSortNormal, _
                  DataOption3:=xlSortNormal
    .Range("D3:G" & eRow).Replace What:="", Replacement:="0", LookAt:=xlPart, _
                  SearchOrder:=xlByRows, MatchCase:=False
  End With
End Sub

4 hits

【74437】LAN内に作ったファイルのマクロがエラーになる isausa 13/6/13(木) 16:33 質問
【74442】Re:LAN内に作ったファイルのマクロがエ... Yuki 13/6/15(土) 9:10 発言
【74444】Re:LAN内に作ったファイルのマクロがエ... isausa 13/6/17(月) 8:44 質問
【74445】Re:LAN内に作ったファイルのマクロがエ... Yuki 13/6/17(月) 9:37 発言
【74446】Re:LAN内に作ったファイルのマクロがエ... UO3 13/6/17(月) 9:47 発言
【74485】Re:LAN内に作ったファイルのマクロがエ... isausa 13/6/26(水) 10:59 お礼
【74448】Re:LAN内に作ったファイルのマクロがエ... 13/6/19(水) 7:38 発言

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