[過去ﾛｸﾞ] Excel総合相談所 140 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
46(1): 2020/07/22(水)13:32 AAS
>>43
何をどう組み合わせてG1の値にしたいのか例を書いてくれ
47(3): 2020/07/22(水)14:09 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
以前下記のExcelからメール作成するフォーマットをここで教えてもらい便利に使ってました
マクロ実行でB4がTO、B5がCC、B6が件名、B7が本文に入力されてメール作成画面が開きます
ところが会社の中国人が使いたいと言うので渡したところ
中国語のWindows10だと件名と本文が文字化けします
中国語等の外国語のWindows PCでも文字化けしないようにできますでしょうか
Sub createMail()
省12
48(1): 2020/07/22(水)14:46 AAS
>>46
ありがとうございます
最低でもA1〜F1には1以上の数字を必ず入れます
G1は（A1+B1+C1+D1+E1+F1）の合計になります
例えばG1が11の場合、（A1+B1+C1+D1+E1+F1）のパターンを全て知りたいです
49(1): 2020/07/22(水)15:26 AAS
すみません、解決しました
以前教えてもらったMODとROW関数とフィルタで出来ました
50(1): 2020/07/22(水)17:11 AAS
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】はい
【4 VBAでの回答の可否】 可
色んなデータがあるサイトでピンポイントで一つのデータをスクレイピングしたいんですが、
そのデータがソースで毎回30行目で固定されてるんで、
行指定でデータ吸い取れたら良いんですが、やり方がわかりません。
お願いします。
51: 2020/07/22(水)17:24 AAS
>>50
HTMLソースを文字配列に読み込んで30番目を使う
52(2): 2020/07/22(水)20:49 AAS
>>43
ゴールシークという機能を使う
53(2): 2020/07/22(水)21:39 AAS
>>35
caseの後のaaa、bbb………を別のシートにリスト化のような感じになっていたらcaseのあとに全部書く必要はなくないでしょうか？やり方を教えてほしいで。、
54: 2020/07/22(水)22:00 AAS
>>53
worksheetfunction.matchと
case is 構文
エラー処理も必要
55(2): 2020/07/22(水)22:22 AAS
>>47
中国語の環境がないから何とも言えないけど・・・
UTF-8になっているから逆に文字化けするのがおかしい気がする
メールソフトがutf-8に対応していないと思う。多分
メールソフトを変えてみると解決するかもしれない
メールソフトを帰るのが無理だと、中国語（euc-cn）などにエンコードすればいいかもしれないけど、すげー大変そう
>>53
sheet1のa1:a5がリスト。
findの返り値はsetしないと使えない事に気づくのに3分かかったわ
Sub Macro1()
省10
56(1): 2020/07/22(水)23:09 AAS
>>55
どこでUTF-8になってると分かるのでしょうか？
57(1): 2020/07/22(水)23:19 AAS
>>56
テキトーな文字をエンコードして、それで検索したら大体分かるよ
考えてみたけど、中国語への変換は中国人に中国語で検索してもらうと見つかるかもしれない
58(1): 2020/07/23(木)08:11 AAS
>>47
ユニコードには表現方法がいくつもあって、ワークシートの文字列をVBAで扱う時はUCS-2形式のユニコードが使われるから、これをUTF-8形式に変換しないと基本的には文字化けする
具体的な方法は知らんけど、ADODB.StreamオブジェクトのCharsetプロパティでできるかもしれない
59: 2020/07/23(木)08:39 AAS
>>52
ありがとうございます
60: 52 2020/07/23(木)09:24 AAS
>>55
ありがとう。
61(1): 2020/07/23(木)09:34 AAS
ワークシート上の文字列をUTF-8に変換する関数
これでも文字化けするなら、さらに16進数に変換しないとだめかも
Function UTF8(text As String) As String
With New ADODB.Stream
.Open
.Type = adTypeText
.Charset = "UTF-8"
.WriteText text
.Position = 0
.Type = adTypeBinary
省5
62(1): 2020/07/23(木)09:36 AAS
補足
ADODB.Streamを使う時は参照設定で「Microsoft ActiveX Data Objects x.x Libraryを追加
バージョンは2.5以上ならどれでもいいはず
63(1): 2020/07/23(木)17:22 AAS
> "&body=%FF%FE"
BOMだけパーセントエンコードがUTF-16LEになってる
64(1): 2020/07/23(木)19:10 AAS
>>47です
>>57
すみません意味分かりません
>>58
>>61-62
その方法だと使うPC全てExcelのVBAでADODB.Streamオブジェクトを
使えるようにしなければなりませんよね？
>>63
そこを下記のようにsubjectの行と同じように変更し
自分の日本語Windows PCで中国語でニーハオとB6とB7に入力して
省6
65: 2020/07/23(木)20:28 AAS
ならそれでもう使えるだろ？
目的を明確にしてから質問してくれよな
上下前次1-新書関写板覧索設栞歴
あと 937 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.268s*