個人事業主の方必見!確定申告のお悩み解決

Excelに関しての質問です。
仕事場で皆が簡単に使えるようにマクロを作りたく、https://oshiete.goo.ne.jp/qa/9915014.html こちらのBAを質問を参考にしようとしました。(私がやりたい動作にぴったりだと思ったので)
しかし、文字列として読み込みたいセルが他に複数存在している場合のコードの書き方がわかりません。
文字列にしたいのはP、Q、Rの列で、最後にD列で降順にソートします。
どうかどなたかご教授いただけないでしょうか?

A 回答 (3件)

If j <> 7 Then


     Cells(b + i, j).Value = buf(j - 1)
    Else
     Cells(b + i, j).Value = "'" & buf(j - 1) 'プレフィックス文字列書式
    End If
の部分を下記の様に変更します。
    Select Case j
      Case 16, 17, 18
        Cells(b + i, j).Value = "'" & buf(j - 1) 'プレフィックス文字列書式
      Case Else
        Cells(b + i, j).Value = buf(j - 1)
    End Select
    • good
    • 1
この回答へのお礼

こんなに早く回答して下さる方が居るとは!
希望通りに動きました、本当にありがとうございます!!
まだまだ勉強不足ですが、教えて頂いたことを参考にしてもっと精進します!

お礼日時:2019/12/08 13:26

.Sort Key1:=.Cells(1, 5), Order1:=xlAscending, _


の xlAscending が昇順です。
降順なら、xlDescending です。
    • good
    • 1

.Sort Key1:=.Cells(1, 5), Order1:=xlAscending, _


の 5 というのがソート列です。
D列なら 4 ですね。
    • good
    • 1

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング