[過去ログ]
Excel総合相談所 140 (1002レス)
Excel総合相談所 140 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
44: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 13:16:06.94 1ファイル12 Sheetで一年間のデータを管理しています。 1月〜12月がそれぞれ1Sheet〜でSeet1月〜Sheet12月、Sheetは1日〜月末まで日々のデータです。 これとは別に同ファイルに、1Sheetに1月〜12月までの表を12ヶ月分並べたもの(Sheet年間)があるのですが 月ごとにデータを入力したら、こちらのSheetの、該当日にも入力されているようにするにはどうやればいいのでしょうか? http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/44
45: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 13:17:42.68 書き忘れました 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel 2016 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 否 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/45
46: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 13:32:31.91 >>43 何をどう組み合わせてG1の値にしたいのか例を書いてくれ http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/46
47: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 14:09:13.61 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel2016 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 可 以前下記のExcelからメール作成するフォーマットをここで教えてもらい便利に使ってました マクロ実行でB4がTO、B5がCC、B6が件名、B7が本文に入力されてメール作成画面が開きます ところが会社の中国人が使いたいと言うので渡したところ 中国語のWindows10だと件名と本文が文字化けします 中国語等の外国語のWindows PCでも文字化けしないようにできますでしょうか Sub createMail() CreateObject("Wscript.Shell").Run _ "mailto:" & URLEncode(Range("B4").Value) & _ "?cc=" & URLEncode(Range("B5").Value) & _ "&subject=" & URLEncode(Range("B6").Value) & _ "&body=%FF%FE" & URLEncode(Range("B7").Value) End Sub Function URLEncode(ByVal strOrg As String) As String With CreateObject("ScriptControl") .Language = "JScript" URLEncode = .CodeObject.encodeURI(strOrg) End With End Function http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/47
48: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 14:46:59.49 >>46 ありがとうございます 最低でもA1〜F1には1以上の数字を必ず入れます G1は(A1+B1+C1+D1+E1+F1)の合計になります 例えばG1が11の場合、(A1+B1+C1+D1+E1+F1)のパターンを全て知りたいです http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/48
49: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 15:26:37.89 すみません、解決しました 以前教えてもらったMODとROW関数とフィルタで出来ました http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/49
50: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 17:11:54.93 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel2013 【3 VBAが使えるか .】はい 【4 VBAでの回答の可否】 可 色んなデータがあるサイトでピンポイントで一つのデータをスクレイピングしたいんですが、 そのデータがソースで毎回30行目で固定されてるんで、 行指定でデータ吸い取れたら良いんですが、やり方がわかりません。 お願いします。 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/50
51: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 17:24:27.10 >>50 HTMLソースを文字配列に読み込んで30番目を使う http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/51
52: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 20:49:56.57 >>43 ゴールシークという機能を使う http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/52
53: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 21:39:14.22 >>35 caseの後のaaa、bbb………を別のシートにリスト化のような感じになっていたらcaseのあとに全部書く必要はなくないでしょうか?やり方を教えてほしいで。、 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/53
54: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 22:00:00.49 >>53 worksheetfunction.matchと case is 構文 エラー処理も必要 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/54
55: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 22:22:31.15 >>47 中国語の環境がないから何とも言えないけど・・・ UTF-8になっているから逆に文字化けするのがおかしい気がする メールソフトがutf-8に対応していないと思う。多分 メールソフトを変えてみると解決するかもしれない メールソフトを帰るのが無理だと、中国語(euc-cn)などにエンコードすればいいかもしれないけど、すげー大変そう >>53 sheet1のa1:a5がリスト。 findの返り値はsetしないと使えない事に気づくのに3分かかったわ Sub Macro1() 最終列 = Cells(1, Columns.Count).End(xlToLeft).Column For i = 最終列 To 1 Step -1 不要な列を削除するための見出し = Cells(1, i).Value Set result = Sheets("sheet1").Range("a1:a5").Find( _ What:=不要な列を削除するための見出し, LookAt:=xlWhole) If Not (result Is Nothing) Then Columns(i).Delete Shift:=xlToLeft End If Next End Sub http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/55
56: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 23:09:25.93 >>55 どこでUTF-8になってると分かるのでしょうか? http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/56
57: 名無しさん@そうだ選挙にいこう [sage] 2020/07/22(水) 23:19:57.85 >>56 テキトーな文字をエンコードして、それで検索したら大体分かるよ 考えてみたけど、中国語への変換は中国人に中国語で検索してもらうと見つかるかもしれない http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/57
58: 名無しさん@そうだ選挙にいこう [sage] 2020/07/23(木) 08:11:32.20 >>47 ユニコードには表現方法がいくつもあって、ワークシートの文字列をVBAで扱う時はUCS-2形式のユニコードが使われるから、これをUTF-8形式に変換しないと基本的には文字化けする 具体的な方法は知らんけど、ADODB.StreamオブジェクトのCharsetプロパティでできるかもしれない http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/58
59: 名無しさん@そうだ選挙にいこう [sage] 2020/07/23(木) 08:39:15.61 >>52 ありがとうございます http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/59
60: 52 [sage] 2020/07/23(木) 09:24:34.15 >>55 ありがとう。 http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/60
61: 名無しさん@そうだ選挙にいこう [sage] 2020/07/23(木) 09:34:12.59 ワークシート上の文字列を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 .Position = 3 UTF8 = .Read .Close End With End Function http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/61
62: 名無しさん@そうだ選挙にいこう [sage] 2020/07/23(木) 09:36:40.34 補足 ADODB.Streamを使う時は参照設定で「Microsoft ActiveX Data Objects x.x Libraryを追加 バージョンは2.5以上ならどれでもいいはず http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/62
63: 名無しさん@そうだ選挙にいこう [sage] 2020/07/23(木) 17:22:53.93 > "&body=%FF%FE" BOMだけパーセントエンコードがUTF-16LEになってる http://mevius.5ch.net/test/read.cgi/bsoft/1595286043/63
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 939 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.041s