[go: up one dir, main page]
More Web Proxy on the site http://driver.im/

電子書籍の厳選無料作品が豊富！

VBA　ソートすると、１、１１、２，３になって・・

解決済

  • 質問者：mk1234
  • 質問日時：
  • 回答数：5件

VBAにて下記のようなコードでソートすると、１、１１、２，３になってしまいました。
数字ではなく、文字として認識していると、このようになると書かれていました。
どうすれば、１、２、３、１１と並び替えれるのしょうか？

If Numbers1(i) > Numbers1(j) Then

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (5件)

No.5ベストアンサー

  • 回答者： keithin
  • 回答日時：

＞どうすれば、１、２、３、１１と並び替えれる




方法１）
自作プログラムでソートせず、エクセルに任せます。

sub macro1()
range("A:A").sort key1:=range("A1"), order1:=xlascending, header:=xlno, dataoption1:=xlsorttextasnumbers
end sub



方法２）
変更前：
If Numbers1(i) > Numbers1(j) Then

変更後：
If Numbers1(i) - Numbers1(j) > 0 then
    • good
    • 4
    • 件
通報する
この回答へのお礼

回答ありがとうございます。
方法２がシンプルで良さそうですね。

通報する
お礼日時：2014/07/06 21:17

No.4

  • 回答者： kkkkkm
  • 回答日時：

No3です。

訂正

Numbers
↓
Numbers1(i)
    • good
    • 0
    • 件
通報する

No.3

  • 回答者： kkkkkm
  • 回答日時：

なんか数字が全角ぽいので


Val(StrConv(Numbers, vbNarrow))
の方がいいかもしれません。
    • good
    • 0
    • 件
通報する
この回答へのお礼

回答ありがとうございます。

通報する
お礼日時：2014/07/06 21:16

No.2

  • 回答者： kkkkkm
  • 回答日時：

Val(Numbers1(i))


とかにして数値に変換してください。
    • good
    • 0
    • 件
通報する
この回答へのお礼

回答ありがとうございます。
こうすればよいのですね。

通報する
お礼日時：2014/07/06 21:16

No.1

  • 回答者： nag0720
  • 回答日時：

もし、Numbers1の桁数がすべて10桁以内であるなら、



If Right("0000000000" & Numbers1(i), 10) > Right("0000000000" & Numbers1(j), 10) Then

とすれば、１、２、３、１１となる。
    • good
    • 0
    • 件
通報する
この回答へのお礼

回答ありがとうございます。

このような方法で、なぜ数字とみなすようになるのでしょうか？

通報する
お礼日時：2014/07/06 21:15

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

Q質問する（無料）

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

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

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

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報