Excel VBA 質問スレ Part76

[1 デフォルトの名無しさん (ﾌﾞｰｲﾓ MMff-XZ6m) 2022/05/01(日) 02:23:41.78 ID:2t63WK/jM]

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑2行に減ってるけど、同じ内容を3行に増やして貼り付けること

ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

※前スレ
Excel VBA 質問スレ Part75
https://mevius.5ch.net/test/read.cgi/tech/1644384272/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

[993 デフォルトの名無しさん (ﾜｯﾁｮｲ 9d5f-GsVe) 2022/07/16(土) 07:52:34.81 ID:1SMMBEmo0]

UserForm1.Show vbModeless
Unload UserForm1

って意味なら、別に落ちなかったけど

[994 デフォルトの名無しさん (ﾜｯﾁｮｲ 5a42-PUxa) 2022/07/16(土) 08:52:29.38 ID:eHBMNsDF0]

逆になんでhideじゃダメなの

[995 デフォルトの名無しさん (ﾜｯﾁｮｲ 912f-cIkS) 2022/07/16(土) 13:26:34.40 ID:NLVpHfZz0]

とりあえずEXCELが落ちるっていうコードと環境出せ
話はそれからだ

[996 デフォルトの名無しさん (ﾜｯﾁｮｲ 762c-lpz1) 2022/07/16(土) 18:00:44.38 ID:2WLM14wy0]

>>978
Ruby で作った

require "csv"

input_str = <<"EOT"
RED,BLUE,APPLE
RED,BLUE,BANANA
RED,BLUE,GREEN,ORANGE
RED,BLUE,YELLOW,WHITE,GRAPE
RED,BLUE,WHITE,CHERRY
DOG,CAT,RABBIT,COW,BEAR
EOT

csv = CSV.new( input_str )
input_ary = csv.read # 2次元配列

# 各単語の出現回数を数える。Hash の初期値は、0
hash = input_ary.each_with_object( Hash.new( 0 ) ) { |row, hash|
row.each { |word| hash[ word ] += 1 }
}

# 出現回数が2以上の単語を削除する
input_ary.map! { |row|
row.delete_if { |word| hash[ word ] >= 2 }
row
}

# 2次元配列を、CSV 文字列に変換する
csv_str = input_ary.map( &:to_csv ).join
puts csv_str

[997 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa39-eHP4) 2022/07/16(土) 19:45:04.74 ID:vYu+PcKIa]

>>996
廃止決定した言語じゃん

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ 5ada-XFSu) 2022/07/17(日) 00:22:00.69 ID:lEW2LcQY0]

あんたら色んな言語を習得していてエリートなんだな？
５ちゃんねるなんかにいてもったいねーわ

[999 デフォルトの名無しさん (ﾜｯﾁｮｲ 05da-k1yI) 2022/07/17(日) 02:44:22.32 ID:rPHWMq+g0]

>>995
993と同じ、2行だけ
エクセルは2013

>>994
閉じたWebbrowserを再表示する方法がわからないので仕方なく

[1000 デフォルトの名無しさん (ﾜｯﾁｮｲ 5a63-4HbS) 2022/07/17(日) 04:50:23.78 ID:fLi6s9i70]

こいつの書くコード、rubyとしてもクソコードなのがほんとひどい