Excel VBA 質問スレ Part76at TECH
Excel VBA 質問スレ Part76 - 暇つぶし2ch1005:デフォルトの名無しさん
22/07/16 02:37:29.28 hVvvoOFI0.net
userformをshowした直後にunloadするとexcelが落ちるのは何とかならんかのぉ
hideじゃだめなんじゃunloadじゃないと

1006:デフォルトの名無しさん
22/07/16 07:52:34.81 1SMMBEmo0.net
UserForm1.Show vbModeless
Unload UserForm1
って意味なら、別に落ちなかったけど

1007:デフォルトの名無しさん
22/07/16 08:52:29.38 eHBMNsDF0.net
逆になんでhideじゃダメなの

1008:デフォルトの名無しさん
22/07/16 13:26:34.40 NLVpHfZz0.net
とりあえずEXCELが落ちるっていうコードと環境出せ
話はそれからだ

1009:デフォルトの名無しさん
22/07/16 18:00:44.38 2WLM14wy0.net
>>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

1010:デフォルトの名無しさん
22/07/16 19:45:04.74 vYu+PcKIa.net
>>996
廃止決定した言語じゃん

1011:デフォルトの名無しさん
22/07/17 00:22:00.69 lEW2LcQY0.net
あんたら色んな言語を習得していてエリートなんだな?
5ちゃんねるなんかにいてもったいねーわ

1012:デフォルトの名無しさん
22/07/17 02:44:22.32 rPHWMq+g0.net
>>995
993と同じ、2行だけ
エクセルは2013
>>994
閉じたWebbrowserを再表示する方法がわからないので仕方なく

1013:デフォルトの名無しさん
22/07/17 04:50:23.78 fLi6s9i70.net
こいつの書くコード、rubyとしてもクソコードなのがほんとひどい

1014:1001
Over 1000 Thread.net
このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 77日 2時間 26分 42秒

1015:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています


最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch