!extend:checked:vvvvv:1000:512
スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part47 [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1489557874/
※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 125
http://echo.2ch.net/test/read.cgi/bsoft/1481369538/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured
探検
Excel VBA 質問スレ Part48 [無断転載禁止]©2ch.net
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん 転載ダメ©2ch.net (ワッチョイ 6f8e-Fc1g)
2017/05/16(火) 08:24:45.78ID:iIGA/64l051デフォルトの名無しさん (ワッチョイ 268e-kvD5)
2017/05/18(木) 19:06:48.56ID:hKe3x/Mw052デフォルトの名無しさん (オッペケ Sr13-sIut)
2017/05/18(木) 19:21:07.71ID:f5T5khCgr53デフォルトの名無しさん (オイコラミネオ MM76-88zL)
2017/05/18(木) 22:27:14.87ID:EwzTzSyyM マウスポインターの移動量かマウスのスクロール量を検知って出来ますか?
54デフォルトの名無しさん (ワッチョイ da61-iXcy)
2017/05/18(木) 23:31:41.56ID:fbyfCIXE0 form上の話ならMouseMoveイベント使えばなんとかなるんじゃね?
form以外でならwin32api(GetCursorPosとか)を駆使すれば
form以外でならwin32api(GetCursorPosとか)を駆使すれば
55デフォルトの名無しさん (ワッチョイ 6bb2-PZTw)
2017/05/19(金) 12:10:12.11ID:Hh88K1uA0 最新版のExcelで、ファイルを開いた直後にだけコンパイルエラーが出るようになったから絶対更新しないほうがいいぞ
エラーが出るのは
Function ProcName(cel As Range) As Double
とか、パラメータにAs Rangeを持つところみたいで
一応As Objectに変えてしまえば通るけど、治すの大変だ・・・
エラーが出るのは
Function ProcName(cel As Range) As Double
とか、パラメータにAs Rangeを持つところみたいで
一応As Objectに変えてしまえば通るけど、治すの大変だ・・・
56デフォルトの名無しさん (ワッチョイ 6bb2-PZTw)
2017/05/19(金) 12:26:18.38ID:Hh88K1uA0 関連してそうな情報を発見
https://blogs.msdn.microsoft.com/office_client_development_support_blog/2017/05/17/
とうとう本気で.xls形式を殺しに来たか
https://blogs.msdn.microsoft.com/office_client_development_support_blog/2017/05/17/
とうとう本気で.xls形式を殺しに来たか
57デフォルトの名無しさん (ワッチョイ 7f0a-3/HR)
2017/05/19(金) 12:27:06.53ID:OupscBB+0 >>55
なんていうか、まあ頑張れ
なんていうか、まあ頑張れ
58デフォルトの名無しさん (ワッチョイ 6b44-7DzV)
2017/05/19(金) 12:49:41.54ID:P+QgsC3b059デフォルトの名無しさん (ワッチョイ 6bb2-PZTw)
2017/05/19(金) 13:13:31.21ID:Hh88K1uA0 >>58
すまない。新規ブックでは検証していなかった。
問題無いことを確認
14.0.718.5000
16.0.7927.1024
コンパイルエラーを確認
15.0.4927.1002
16.0.8067.2115
なので、>>58の環境でも発生すると思う。
新規ブックで、
Module1に
Function ProcName(cel As Range) As Double
ProcName = cel.Value
End Function
Sub btn_Click()
MsgBox "click"
End Sub
を書いて、ブック上のシェイプのマクロにbtn_Click()を割り当てるとファイルを開いた瞬間にだけコンパイルエラーが起こるよ
上記URLによれば、モジュール範囲の定義なら起こるらしいので
Private 変数 As Workbook
Sub btn_Click()
MsgBox "click"
End Sub
でもダメぽ
解決策はAs Objectとするか、モジュールを切り分けるしかない。
すまない。新規ブックでは検証していなかった。
問題無いことを確認
14.0.718.5000
16.0.7927.1024
コンパイルエラーを確認
15.0.4927.1002
16.0.8067.2115
なので、>>58の環境でも発生すると思う。
新規ブックで、
Module1に
Function ProcName(cel As Range) As Double
ProcName = cel.Value
End Function
Sub btn_Click()
MsgBox "click"
End Sub
を書いて、ブック上のシェイプのマクロにbtn_Click()を割り当てるとファイルを開いた瞬間にだけコンパイルエラーが起こるよ
上記URLによれば、モジュール範囲の定義なら起こるらしいので
Private 変数 As Workbook
Sub btn_Click()
MsgBox "click"
End Sub
でもダメぽ
解決策はAs Objectとするか、モジュールを切り分けるしかない。
60デフォルトの名無しさん (ワッチョイ 6b44-7DzV)
2017/05/19(金) 13:33:37.37ID:P+QgsC3b061デフォルトの名無しさん (ワッチョイ 6bb2-PZTw)
2017/05/19(金) 13:52:53.66ID:Hh88K1uA0 >>60
全くもって仰る通り。
以前から.xlsmへの切り替えを勧めているが、なかなか全てを切り替えられなくてね。
各個人に持たせているファイルを差し替えろって言ってもメール無視されるし。
あと単純に.xlsmに変えてしまうと
・他のシステムが対応していないせいでxlsしか使えない。
・表の最大値が大きくなったお陰で、既存のマクロだと末端の列列まで処理するループが混ざっていて永久に処理が終わらない。
(そのくらいマクロ直せよ・・)
・ブックのリンクが貼ってあるせいで過去のエクセルファイル全てのリンクを修復しないといけない。
(作ったやつ誰だよ・・)
・データサイズの大きい「共有ブック」をxlsmに変えるととてつもなく重くなる。
(データとマクロ分離しろよ・・)
とか様々な理由があって切り替えが終わってない。
ツッコミどころ満載やで。
全くもって仰る通り。
以前から.xlsmへの切り替えを勧めているが、なかなか全てを切り替えられなくてね。
各個人に持たせているファイルを差し替えろって言ってもメール無視されるし。
あと単純に.xlsmに変えてしまうと
・他のシステムが対応していないせいでxlsしか使えない。
・表の最大値が大きくなったお陰で、既存のマクロだと末端の列列まで処理するループが混ざっていて永久に処理が終わらない。
(そのくらいマクロ直せよ・・)
・ブックのリンクが貼ってあるせいで過去のエクセルファイル全てのリンクを修復しないといけない。
(作ったやつ誰だよ・・)
・データサイズの大きい「共有ブック」をxlsmに変えるととてつもなく重くなる。
(データとマクロ分離しろよ・・)
とか様々な理由があって切り替えが終わってない。
ツッコミどころ満載やで。
62デフォルトの名無しさん (ワッチョイ 6b44-7DzV)
2017/05/19(金) 13:56:26.64ID:P+QgsC3b0 いい 切り替えの機会じゃん
xlsは もうまともに 使えません(キリッ
・・・・と言えたらいいねw
xlsは もうまともに 使えません(キリッ
・・・・と言えたらいいねw
63デフォルトの名無しさん (ワッチョイ 4a92-wIp5)
2017/05/19(金) 22:44:50.72ID:ELP3hVnQ0 変数宣言を一番上に書くと、
確認する時、スクロールで戻るのが面倒なんですが、
Excelなのに、上の方の画面を固定出来るという発想は無かったのでしょうか。
Excelなのに。
確認する時、スクロールで戻るのが面倒なんですが、
Excelなのに、上の方の画面を固定出来るという発想は無かったのでしょうか。
Excelなのに。
64デフォルトの名無しさん (ワッチョイ 46a5-88zL)
2017/05/19(金) 23:07:15.86ID:HsQ+il8a0 そんなことより行番号表示かと。
65デフォルトの名無しさん (ワッチョイ 068e-cZSU)
2017/05/19(金) 23:10:43.79ID:1s7BLiGf0 グローバルで別のモジュールに書いてウィンドウを並べるとか
66デフォルトの名無しさん (アークセー Sx03-sIut)
2017/05/19(金) 23:27:00.50ID:vYjNISl1x Excel VBAしかやったことない人が何だか勘違いしてるようだがそもそもVBEはExcelの機能ではないぞ
67デフォルトの名無しさん (ワッチョイ ca3c-J3Da)
2017/05/19(金) 23:34:30.47ID:vnM/uOfn068デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/19(金) 23:42:30.09ID:FnbaGtrQ069デフォルトの名無しさん (ワッチョイ 4a92-wIp5)
2017/05/19(金) 23:49:13.07ID:ELP3hVnQ070デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/19(金) 23:52:43.48ID:FnbaGtrQ0 >>69
何の変数ってのがよく分からんのだけど、
Dim Example As Long: Example = 1
みたいに宣言と代入を上の方でしてるって話?
ローカルウインドウとかその他機能でなんとかならんの?
何の変数ってのがよく分からんのだけど、
Dim Example As Long: Example = 1
みたいに宣言と代入を上の方でしてるって話?
ローカルウインドウとかその他機能でなんとかならんの?
71デフォルトの名無しさん (ワッチョイ 068e-xJM8)
2017/05/19(金) 23:54:11.19ID:1s7BLiGf0 中身のわからない変数名を付けるからそんなアホな事をせにゃならんようになるんだ
似たような変数名が多すぎてややこしいならfunctionに分ける等、予め余計な手間が発生しないようにするんだ
似たような変数名が多すぎてややこしいならfunctionに分ける等、予め余計な手間が発生しないようにするんだ
72デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/19(金) 23:59:18.39ID:dZkjjWfrx >>63
書かなきゃよい
書かなきゃよい
73デフォルトの名無しさん (ワッチョイ fa61-iXcy)
2017/05/20(土) 00:21:30.52ID:foz/Iffu074デフォルトの名無しさん (ワッチョイ caa6-kvD5)
2017/05/20(土) 08:57:37.77ID:k9L+DwNA0 >>63は赤の他人が書いたクソ長いコードを解析させられている気の毒な人だ
と好意的に解釈しておこう
と好意的に解釈しておこう
75デフォルトの名無しさん (ワッチョイ 6731-N4F7)
2017/05/20(土) 09:20:18.91ID:5sPtJFYn0 hoge param1:=xxx, param2:=yyy みたいな書き方に慣れないんですが
dummy = hoge(xxx, yyy) とかではダメな理由ってあるんでしょうか?
dummy = hoge(xxx, yyy) とかではダメな理由ってあるんでしょうか?
76デフォルトの名無しさん (ワッチョイ 068e-6Kgr)
2017/05/20(土) 09:33:47.65ID:TX7Bd0Me0 >>75
別にどっちでもいい。好み
ファイルの保存なんかもこの方が見やすいと思う
例えば保存時で比べる
ファイル形式を定数で打つと分かり辛い
Thisworkbook.SaveAs("C:\foo",43)
こう書けばフォーマットなんだな、ということが見てすぐにわかると思う
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="43"
本当はこの方が良いけどね
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="xlExcel9795"
他にも引数が大量にあるときやパラメータが複雑な時にわかりやすい。以下は見辛い
dummy = hoge(xxx, , , yyy, , ,zzz)
逆にsum()を
sum arg1:=xxx, arg2:=yyy
なんてすると読みづらいだけになる
と言ってる俺も保存の時ぐらいにしか使わないけどね
別にどっちでもいい。好み
ファイルの保存なんかもこの方が見やすいと思う
例えば保存時で比べる
ファイル形式を定数で打つと分かり辛い
Thisworkbook.SaveAs("C:\foo",43)
こう書けばフォーマットなんだな、ということが見てすぐにわかると思う
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="43"
本当はこの方が良いけどね
Thisworkbook.SaveAs Filename:="C:\foo",FileFormat:="xlExcel9795"
他にも引数が大量にあるときやパラメータが複雑な時にわかりやすい。以下は見辛い
dummy = hoge(xxx, , , yyy, , ,zzz)
逆にsum()を
sum arg1:=xxx, arg2:=yyy
なんてすると読みづらいだけになる
と言ってる俺も保存の時ぐらいにしか使わないけどね
77デフォルトの名無しさん (ワッチョイ 6731-N4F7)
2017/05/20(土) 09:53:58.83ID:5sPtJFYn0 ありがとうございます
事務仕事でExcelVBAをいじる必要があったんだけど
大昔の非構造化BASICやFORTRAN、Cなどの印象しかないので最近の言語は抽象的すぎて分かりにくい
事務仕事でExcelVBAをいじる必要があったんだけど
大昔の非構造化BASICやFORTRAN、Cなどの印象しかないので最近の言語は抽象的すぎて分かりにくい
78デフォルトの名無しさん (ワッチョイ ca3c-J3Da)
2017/05/20(土) 10:13:55.47ID:I6OViHCS0 >>75
その名前じゃあまりメリットないけど引数の名前をちゃんとつけてたら分かりやすい
あと引数がたくさんある場合に後ろの方の引数を指定したい時とか
Workbook.Open FileName:="test.xlsx", AddToMru:=True
その名前じゃあまりメリットないけど引数の名前をちゃんとつけてたら分かりやすい
あと引数がたくさんある場合に後ろの方の引数を指定したい時とか
Workbook.Open FileName:="test.xlsx", AddToMru:=True
79デフォルトの名無しさん (スッップ Sdea-9e5p)
2017/05/20(土) 10:29:20.36ID:0mLljkpvd >>77
大昔のCって関数と最初の { の間に変数宣言するようなやつ?
大昔のCって関数と最初の { の間に変数宣言するようなやつ?
80デフォルトの名無しさん (ワッチョイ 6731-N4F7)
2017/05/20(土) 10:44:25.75ID:5sPtJFYn0 >>79
そんなやつ、カーニハンとリッチーの第1版、白いカバーの表紙のやつ
そんなやつ、カーニハンとリッチーの第1版、白いカバーの表紙のやつ
81デフォルトの名無しさん (ワッチョイ 6731-N4F7)
2017/05/20(土) 10:50:27.63ID:5sPtJFYn0 変数を宣言しただけでは領域が確保されず
値を代入しただけでプログラムが暴走するんだけど原因に思い当たらず3日間悩んだ挙句に挫折した
値を代入しただけでプログラムが暴走するんだけど原因に思い当たらず3日間悩んだ挙句に挫折した
82デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/20(土) 10:54:07.27ID:TX7Bd0Me0 >>81
上で見たけど、vbaは内部的にかなり変な挙動をしている
newの時点ではメモリ領域は確保されず、初めてプロパティやメソッドにアクセスした段階でメモリ領域が確保される
また、
set foo = thisworkbook
set bar = thisworkbook
は、foo == barに「ならない」
fooとbarは常に違う参照が生成されるので、別扱いとなる
そのコードを教えてくれれば問題解決できると思う
というか後学のためにも見てみたい
上で見たけど、vbaは内部的にかなり変な挙動をしている
newの時点ではメモリ領域は確保されず、初めてプロパティやメソッドにアクセスした段階でメモリ領域が確保される
また、
set foo = thisworkbook
set bar = thisworkbook
は、foo == barに「ならない」
fooとbarは常に違う参照が生成されるので、別扱いとなる
そのコードを教えてくれれば問題解決できると思う
というか後学のためにも見てみたい
83デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/20(土) 10:54:21.25ID:TX7Bd0Me0 newじゃないや、setか
84デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/20(土) 11:19:48.33ID:nyexelOB0 日本語も変数として使えるからわかりやすい名前つければいい
85デフォルトの名無しさん (ササクッテロレ Sp03-qMse)
2017/05/20(土) 11:57:41.20ID:w41RCx9Yp 日本語は好き嫌い分かれるからなあ
俺は日本語が見易いけどさ
俺は日本語が見易いけどさ
86デフォルトの名無しさん (ワッチョイ 068e-6Kgr)
2017/05/20(土) 11:59:34.10ID:TX7Bd0Me0 google翻訳しながら英語変数使うぐらいなら、日本語使ったほうが絶対に良い
87デフォルトの名無しさん (ワッチョイ 4692-cm4/)
2017/05/20(土) 13:11:22.41ID:DWQm6waj0 Visual Basic Edtor って、単体じゃ入手できないよな?
しかもExcelのバージョン違えば使い物にならんヶ所出てくるし
ThisWorkbook だって、どの?に成るだろうし
Microsoft Script Editer じゃあるまいし、どう考えてもExcelの付属品っつー立ち位置だろ
Excelの「おまけ」機能に決定
Word とか Outlook とかバリエーションは在るにしても
しかもExcelのバージョン違えば使い物にならんヶ所出てくるし
ThisWorkbook だって、どの?に成るだろうし
Microsoft Script Editer じゃあるまいし、どう考えてもExcelの付属品っつー立ち位置だろ
Excelの「おまけ」機能に決定
Word とか Outlook とかバリエーションは在るにしても
88デフォルトの名無しさん (オイコラミネオ MM56-3/HR)
2017/05/20(土) 13:21:20.46ID:9VI8goCbM 根本的に勘違いしててワロタw
89デフォルトの名無しさん (ワッチョイ 6bd5-PZTw)
2017/05/20(土) 15:37:38.60ID:VKPh1Lah090デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/20(土) 18:04:39.38ID:yKxdvQKVr 無知って凄いね
感心した
感心した
91デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/20(土) 18:24:24.01ID:KHEwJCpd092デフォルトの名無しさん (ワッチョイ 8a3c-86Y8)
2017/05/20(土) 18:58:10.02ID:E4Y2PkRr0 Excel VBA で Access と連携する業務システムって、ここの人達的にざっくりどう思いますか。社内システムの改良にアサインされてしまった。
93デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/20(土) 19:08:49.87ID:KHEwJCpd094デフォルトの名無しさん (ワッチョイ 8a3c-86Y8)
2017/05/20(土) 19:16:24.30ID:E4Y2PkRr095デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/20(土) 19:18:51.52ID:bcgPDffLp >>92
良いんじゃね
良いんじゃね
96デフォルトの名無しさん (ワッチョイ 4aa8-PZTw)
2017/05/20(土) 19:51:15.58ID:nuBqrdCz0 苦労するかどうか、VBA以外にもSQL知っておかないといけないような気もするけど…
97デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/20(土) 20:11:15.06ID:SOOWfvsE0 なんでVBAでSQLが鬼門なのか、理由とかあるの?
98デフォルトの名無しさん (ワッチョイ 4a92-wIp5)
2017/05/20(土) 21:48:00.24ID:ZQ24XbJz0 Accessと連携なら、問題ないんじゃ…。
単体だと、更新処理系が面倒。
参照だけなら大差ないと思う。
単体だと、更新処理系が面倒。
参照だけなら大差ないと思う。
99デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/20(土) 22:03:15.15ID:SOOWfvsE0 ExcelVBAとAccessVBAでSQLの構文に違いがあると言いたいの??
100デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/20(土) 22:25:58.77ID:TX7Bd0Me0 >>97
やったらわかる
phpでsqlは黄金パターンでうまくいく。db設計もいつも通り。文字コードはutf8
エラー処理も死ぬほどある
、
C#やVBはかなりめんどくさい、というよりもそもそも使う必要がかったので、前任者の引き継ぎが非常にだるい
つまずく場面としては、具体的には文字コード。shift-jisだと最悪。また、db設計が適当
db接続も何かうまくいかない
やったらわかる
phpでsqlは黄金パターンでうまくいく。db設計もいつも通り。文字コードはutf8
エラー処理も死ぬほどある
、
C#やVBはかなりめんどくさい、というよりもそもそも使う必要がかったので、前任者の引き継ぎが非常にだるい
つまずく場面としては、具体的には文字コード。shift-jisだと最悪。また、db設計が適当
db接続も何かうまくいかない
101デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/20(土) 23:25:01.03ID:SOOWfvsE0 >>100
要するにお前のスキルが低すぎてVBA程度もロクに使いこなせない、としか理解できない内容だな
要するにお前のスキルが低すぎてVBA程度もロクに使いこなせない、としか理解できない内容だな
102デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/20(土) 23:32:49.13ID:RVvLdbs7x103デフォルトの名無しさん (ワッチョイ 0bcd-icqO)
2017/05/20(土) 23:35:59.38ID:S4VyllBW0 ODBC=おでぶちゃん
104デフォルトの名無しさん (ワッチョイ 4a92-wIp5)
2017/05/21(日) 00:10:42.76ID:iEpK3Njn0105デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/21(日) 00:16:44.29ID:o4hB34de0 それはVBAじゃなくてオラクルの問題なんじゃないのか?
106デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/21(日) 00:22:22.71ID:o4hB34de0 >>105
どこからオラクルが出てきた!?
どこからオラクルが出てきた!?
107デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/21(日) 03:17:25.81ID:GlMb9Muz0 >>100
君なあ、能力の問題なのか性格の問題なのか分からんが説明が足らんのだよ。
ExcelからDAOを使うかADOを使うかによって変わるのは当然のことだし、ExcelとAccessでどうとか言われてもどういう観点の話か分からんだろ。
君なあ、能力の問題なのか性格の問題なのか分からんが説明が足らんのだよ。
ExcelからDAOを使うかADOを使うかによって変わるのは当然のことだし、ExcelとAccessでどうとか言われてもどういう観点の話か分からんだろ。
108デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/21(日) 03:20:01.97ID:GlMb9Muz0 というか、文字コードの話が出てくるってことはODBCとかドライバの話まで出てくるじゃねーか。
それじゃあ違って当然だ。
それじゃあ違って当然だ。
109デフォルトの名無しさん (ワッチョイ 6792-qKRX)
2017/05/21(日) 07:08:05.80ID:S79+g3VB0 質問させてください。
excelからoutlook起動させてメールを作成するマクロ作ってます。
数パターン用意したテンプレートに任意の文言を置換・挿入してoutlookに渡す?感じです。
動作自体はうまくいってるんですが、なぜかoutlookに渡した本文の文字サイズが12ptになってしまいます。
outlookのデフォルトの文字サイズは10ptだし、12ptになる理由が全く想像つきません...
漠然とした質問で申し訳ないですが、outlook側で設定したデフォルトの文字サイズでメールを作成するようにできないでしょうか?
初心者なので、的はずれなこと言ってたらごめんなさい。
excelからoutlook起動させてメールを作成するマクロ作ってます。
数パターン用意したテンプレートに任意の文言を置換・挿入してoutlookに渡す?感じです。
動作自体はうまくいってるんですが、なぜかoutlookに渡した本文の文字サイズが12ptになってしまいます。
outlookのデフォルトの文字サイズは10ptだし、12ptになる理由が全く想像つきません...
漠然とした質問で申し訳ないですが、outlook側で設定したデフォルトの文字サイズでメールを作成するようにできないでしょうか?
初心者なので、的はずれなこと言ってたらごめんなさい。
110デフォルトの名無しさん (ワッチョイ 068e-dGTj)
2017/05/21(日) 07:40:39.09ID:DM2pkhyK0 >>109
とりあえずぱっと思いつく原因は、エクセル側が12ptなのでそれがoutlook側に渡っている気がする
テキストだけ渡すようにするか、エクセル側を一時的に10ptにしてメール作成後に12ptに戻すとかで対処できるかもしれない
全然違うかもしれない。コードを見せてもらえたら試してみるよ
とりあえずぱっと思いつく原因は、エクセル側が12ptなのでそれがoutlook側に渡っている気がする
テキストだけ渡すようにするか、エクセル側を一時的に10ptにしてメール作成後に12ptに戻すとかで対処できるかもしれない
全然違うかもしれない。コードを見せてもらえたら試してみるよ
111デフォルトの名無しさん (ワッチョイ ca3c-J3Da)
2017/05/21(日) 08:14:42.08ID:1Ubd4ETn0112デフォルトの名無しさん (ワッチョイ caa6-kvD5)
2017/05/21(日) 09:34:47.94ID:bvqoufgo0 しかしなんで今どきAccessなんか使うんだろ。
SQL Server簡単だよ。Management Studio使いやすいし。
SQL Server簡単だよ。Management Studio使いやすいし。
113デフォルトの名無しさん (ワッチョイ 5f4c-PZTw)
2017/05/21(日) 09:46:01.40ID:76EOq35R0 事務的な作業ならAccessで十分だからだろうな。
というかローカルで使えるDBソフトってAccess以外にあんのかな。
というかローカルで使えるDBソフトってAccess以外にあんのかな。
114デフォルトの名無しさん (ワッチョイ ca3c-J3Da)
2017/05/21(日) 10:23:28.85ID:1Ubd4ETn0115デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/21(日) 11:05:17.83ID:DM2pkhyK0 使える人が多いってのは会社では非常に大きなメリット
桐ってソフトを使ってたけど、使える人が少なすぎてaccessに変えることになった
そしてword、てめーはダメだ
桐ってソフトを使ってたけど、使える人が少なすぎてaccessに変えることになった
そしてword、てめーはダメだ
116デフォルトの名無しさん (ワッチョイ 6792-kvD5)
2017/05/21(日) 11:48:21.26ID:S79+g3VB0 >>110
レスありがとうございます。
excel側の文字サイズは10ptなので、ご指摘の原因ではなさそうです。
恥ずかしいですが、ファイルをアップロードしました。
ダウンロードキーは「excel」です。
https://www.axfc.net/u/3807959
実行ボタンを押すと、outlookが起動されてメールが作成されます。
ご確認お願いします。
レスありがとうございます。
excel側の文字サイズは10ptなので、ご指摘の原因ではなさそうです。
恥ずかしいですが、ファイルをアップロードしました。
ダウンロードキーは「excel」です。
https://www.axfc.net/u/3807959
実行ボタンを押すと、outlookが起動されてメールが作成されます。
ご確認お願いします。
117デフォルトの名無しさん (アークセー Sx03-JCxV)
2017/05/21(日) 14:13:30.87ID:/uUqSVmCx >>113
発想が貧困過ぎて草
発想が貧困過ぎて草
118デフォルトの名無しさん (ワッチョイ 068e-rE0G)
2017/05/21(日) 14:33:37.38ID:DM2pkhyK0 >>116
さっぱり分からん。なんか挙動がバグくさい
エクセルvbaからメールを作るとフォルトで12pxになるようだ。これは仕様と捉えていいと思う
で、解決方法としてはこう
<body>タグにインラインcssを設定する
Sub msg2olapp()
'''Outlookでメール作成
Set mail_item = olapp.CreateItem(0)
mail_item.To = toadd 'To
mail_item.Cc = ccadd 'Cc
mail_item.subject = mailsub '件名
mail_item.body = mailbody '本文
mail_item.htmlbody = Replace(mail_item.htmlbody, "<BODY>", "<body style=""font-size:13px"">")
mail_item.Display '表示
End Sub
インラインcssで設定したフォントサイズは何故か3/4になる。理由も意味もわからんが、ゲイツの趣味かなんかだろう
深く考えずに10pxの4/3、つまり13pxでインラインcssを指定する。こうすれば10pxのフォントサイズになる
さっぱり分からん。なんか挙動がバグくさい
エクセルvbaからメールを作るとフォルトで12pxになるようだ。これは仕様と捉えていいと思う
で、解決方法としてはこう
<body>タグにインラインcssを設定する
Sub msg2olapp()
'''Outlookでメール作成
Set mail_item = olapp.CreateItem(0)
mail_item.To = toadd 'To
mail_item.Cc = ccadd 'Cc
mail_item.subject = mailsub '件名
mail_item.body = mailbody '本文
mail_item.htmlbody = Replace(mail_item.htmlbody, "<BODY>", "<body style=""font-size:13px"">")
mail_item.Display '表示
End Sub
インラインcssで設定したフォントサイズは何故か3/4になる。理由も意味もわからんが、ゲイツの趣味かなんかだろう
深く考えずに10pxの4/3、つまり13pxでインラインcssを指定する。こうすれば10pxのフォントサイズになる
119デフォルトの名無しさん (ワッチョイ 6792-qKRX)
2017/05/21(日) 17:02:34.86ID:S79+g3VB0120デフォルトの名無しさん (ワッチョイ 0fc7-X+GT)
2017/05/21(日) 18:41:32.83ID:Ox0ZLs5T0 いまだにptとpx違いがわからない人っているんだね勉強になる
121デフォルトの名無しさん (ワッチョイ 068e-VlMO)
2017/05/21(日) 18:46:19.26ID:DM2pkhyK0122デフォルトの名無しさん (ワッチョイ 4aa8-PZTw)
2017/05/21(日) 23:02:22.04ID:+shsKnP00 データベースとの接続処理で一つ教えてください
Sub test()
Dim wkR As New ADODB.Recordset
S_RecordsetClose (wkR)
End Sub
レコードセットのcloseとnothingの処理を一つにまとめようとしたんですが、
型が一致しません と S_RecordsetClose (wkR) のところでエラーになります
Debug.Print TypeName(wkR) で見たら当然(だと思うんですが)Recordsetに
なってるんで、なんでこれで型の不一致になるんです?
ちなみに S_RecordsetClose に書いた処理は↓です
Sub S_RecordsetClose(ByVal rec As Recordset)
rec.Close
Set rec = Nothing
End Sub
Sub test()
Dim wkR As New ADODB.Recordset
S_RecordsetClose (wkR)
End Sub
レコードセットのcloseとnothingの処理を一つにまとめようとしたんですが、
型が一致しません と S_RecordsetClose (wkR) のところでエラーになります
Debug.Print TypeName(wkR) で見たら当然(だと思うんですが)Recordsetに
なってるんで、なんでこれで型の不一致になるんです?
ちなみに S_RecordsetClose に書いた処理は↓です
Sub S_RecordsetClose(ByVal rec As Recordset)
rec.Close
Set rec = Nothing
End Sub
123デフォルトの名無しさん (ワッチョイ caa6-kvD5)
2017/05/21(日) 23:12:50.81ID:bvqoufgo0124デフォルトの名無しさん (ワッチョイ 1b44-7DzV)
2017/05/21(日) 23:25:21.22ID:aKuhNyUq0125デフォルトの名無しさん (ワッチョイ 4aa8-PZTw)
2017/05/21(日) 23:26:47.02ID:+shsKnP00126デフォルトの名無しさん (ワッチョイ 4aa8-PZTw)
2017/05/21(日) 23:34:14.77ID:+shsKnP00127デフォルトの名無しさん (ワッチョイ 5f4c-PZTw)
2017/05/22(月) 00:57:19.08ID:MyMt2epv0128デフォルトの名無しさん (ドコグロ MM02-9sZ1)
2017/05/22(月) 12:17:47.19ID:0dv64TbrM 質問ですがVBAのプロパティやメソッドの扱い方について詳しい入門書はありませんか?
会社でマクロ使うため超入門(マクロの記録からつかうやつ)と学校で教わったプログラム知識(basicとc++)でなんとかやってるんですがやはりVBAの命令の扱い方が怪しく…
予算は2〜3千円程度でお願いします
会社でマクロ使うため超入門(マクロの記録からつかうやつ)と学校で教わったプログラム知識(basicとc++)でなんとかやってるんですがやはりVBAの命令の扱い方が怪しく…
予算は2〜3千円程度でお願いします
129デフォルトの名無しさん (オッペケ Sr03-sIut)
2017/05/22(月) 12:26:52.79ID:csbpN2HFr >>128
ExcelとAccessのVBAの本なら腐るほどあるからここで聞かなくてもググれば良い
Word、Outlook、PowerPointのVBAとなると日本語ではかなり少なくなるので教えるまでもなくググれば出てくる
ググって出てこないなら英語書籍やネットブログを漁るか、MSDNを直接参照することになるね
ExcelとAccessのVBAの本なら腐るほどあるからここで聞かなくてもググれば良い
Word、Outlook、PowerPointのVBAとなると日本語ではかなり少なくなるので教えるまでもなくググれば出てくる
ググって出てこないなら英語書籍やネットブログを漁るか、MSDNを直接参照することになるね
130デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/22(月) 12:56:42.47ID:AKn80VTzp >>128
vbeでF2キー
vbeでF2キー
131デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 13:29:08.29ID:o9BH+SoNH >>128
メソッドやプロパティの方から網羅的に学習するのはきついので、やりたいことの方から網羅的に
説明してる本の方がいいと思う。
たとえば、
『Excel VBA逆引き辞典パーフェクト』
http://www.shoeisha.co.jp/book/detail/9784798146584
似たような『○○700』みたいなのがいくつかあるから、どれか選んで流し見するのがいいと思う。
メソッドやプロパティの方から網羅的に学習するのはきついので、やりたいことの方から網羅的に
説明してる本の方がいいと思う。
たとえば、
『Excel VBA逆引き辞典パーフェクト』
http://www.shoeisha.co.jp/book/detail/9784798146584
似たような『○○700』みたいなのがいくつかあるから、どれか選んで流し見するのがいいと思う。
132デフォルトの名無しさん (ワッチョイ c6c8-TsZx)
2017/05/22(月) 14:44:41.19ID:nSxPTPKq0 本なんて必要か?
多少の英語カがあればインテリセンスの中からそれっぽいもの選んで実験+Web検索で十分だろ。
あとは、インタフェースへのセンス(絶対この場合だったらこんなプロパティがある筈という嗅覚)とかね。
初心者だったら以下に気を付けてコード書くと良い。
・マクロ記録したらコードの中で必要無い部分をとことん削るのが常識と考えよう。
・それで動作確認して問題無いことを確めよう。
・削って問題無いと思っても、その場では問題無くても場合により問題出ることあるから削って残った部分をWeb検索で皆はどうしてるのかを確認しておこう。
・英語的にそのコードの意味を考えよう。
'A1を選択
Range("A1").Select
'選択したものの値を1にする
Selection.Value=1
だったら当然
'A1の値を1にする
Range("A1").Value=1
ということになる。
多少の英語カがあればインテリセンスの中からそれっぽいもの選んで実験+Web検索で十分だろ。
あとは、インタフェースへのセンス(絶対この場合だったらこんなプロパティがある筈という嗅覚)とかね。
初心者だったら以下に気を付けてコード書くと良い。
・マクロ記録したらコードの中で必要無い部分をとことん削るのが常識と考えよう。
・それで動作確認して問題無いことを確めよう。
・削って問題無いと思っても、その場では問題無くても場合により問題出ることあるから削って残った部分をWeb検索で皆はどうしてるのかを確認しておこう。
・英語的にそのコードの意味を考えよう。
'A1を選択
Range("A1").Select
'選択したものの値を1にする
Selection.Value=1
だったら当然
'A1の値を1にする
Range("A1").Value=1
ということになる。
133デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 15:17:01.68ID:o9BH+SoNH134デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/22(月) 15:42:03.39ID:W5+S3ypfM135デフォルトの名無しさん (ドコグロ MM02-9sZ1)
2017/05/22(月) 15:47:18.44ID:0dv64TbrM 色々意見ありがとうございます
うちの会社ネット禁止なので本に頼るしかない事情があるのです…
ネット可ならネット検索でやりたいのが本音です
うちの会社ネット禁止なので本に頼るしかない事情があるのです…
ネット可ならネット検索でやりたいのが本音です
136デフォルトの名無しさん (スッップ Sdea-9e5p)
2017/05/22(月) 16:20:04.11ID:yUPIrMPGd137デフォルトの名無しさん (ササクッテロレ Sp03-PCQh)
2017/05/22(月) 18:00:49.91ID:AKn80VTzp >>133
その試行錯誤が無駄かどうか長期的に考えれば分からない
その試行錯誤が無駄かどうか長期的に考えれば分からない
138デフォルトの名無しさん (ワッチョイ 5f4c-PZTw)
2017/05/22(月) 18:15:29.31ID:MyMt2epv0 業務なのか自主的なのかで話が変わってくると思うけど、
VBAいじるのにネット無しは辛いなぁ。
VBAいじるのにネット無しは辛いなぁ。
139デフォルトの名無しさん (JP 0H16-cm4/)
2017/05/22(月) 18:29:46.83ID:o9BH+SoNH140デフォルトの名無しさん (ワッチョイ 4692-cm4/)
2017/05/22(月) 18:56:05.69ID:pWkjNq5k0 おおむかしは、FAXでMicrosoftから資料を引き出していたものじゃ
先ず、目次を引っ張れるFAX番号に掛けて、延々何十枚もの目次をげっと
その目次から欲しい機能を探し出し、今度は欲しい機能のFAX番号へ掛けて
これまた延々と資料を文字通り引きずり出しておったわ
よく覚えてないけど、そんなかんじ
その頃のFAXはB4の感光紙で、うっかり陽の当たるところに置きっぱで
外出したりすると、帰社した時には真っ黒くろすけで愕然と膝から頽れたり
先ず、目次を引っ張れるFAX番号に掛けて、延々何十枚もの目次をげっと
その目次から欲しい機能を探し出し、今度は欲しい機能のFAX番号へ掛けて
これまた延々と資料を文字通り引きずり出しておったわ
よく覚えてないけど、そんなかんじ
その頃のFAXはB4の感光紙で、うっかり陽の当たるところに置きっぱで
外出したりすると、帰社した時には真っ黒くろすけで愕然と膝から頽れたり
141デフォルトの名無しさん (ワッチョイ 068e-kvD5)
2017/05/22(月) 19:18:46.60ID:g3oHLvAy0142デフォルトの名無しさん (スッップ Sdea-pPWp)
2017/05/22(月) 19:45:17.11ID:ewHRkUXfd143デフォルトの名無しさん (ワッチョイ 0bc8-3/HR)
2017/05/22(月) 20:10:34.61ID:3QNKGHFQ0 >>142
金融案件みたいなデスマーチの温床に言われてもww
金融案件みたいなデスマーチの温床に言われてもww
144デフォルトの名無しさん (ワッチョイ 068e-dGTj)
2017/05/22(月) 20:13:17.75ID:g3oHLvAy0 >>142
金融業界にvbaでセコセコやってるやつなんでいねーよwww
帳票システムは全部外注、ボタンひとつで出るようになってるんだよwww
しかもエクセルよりアクセスの方が使用頻度が高い
岡三証券とかは知らんけど
金融業界にvbaでセコセコやってるやつなんでいねーよwww
帳票システムは全部外注、ボタンひとつで出るようになってるんだよwww
しかもエクセルよりアクセスの方が使用頻度が高い
岡三証券とかは知らんけど
145デフォルトの名無しさん (ワッチョイ 0fc7-X+GT)
2017/05/22(月) 20:44:19.38ID:rXkCxzW60 なんかさあ…もう少しオープンに自分の無知をさらけ出そうぜ
無知ってそんなに悪いもんじゃないぜ?
無知ってそんなに悪いもんじゃないぜ?
146デフォルトの名無しさん (スッップ Sdea-9e5p)
2017/05/22(月) 21:21:30.49ID:yUPIrMPGd >>142
金融でもいわゆるOA環境は与えられててネットは見れるだろ
金融でもいわゆるOA環境は与えられててネットは見れるだろ
147デフォルトの名無しさん (ワッチョイ cad4-PCQh)
2017/05/22(月) 23:25:21.82ID:KgZfg/yx0148デフォルトの名無しさん (ワッチョイ 8a2d-8zZG)
2017/05/22(月) 23:36:28.18ID:fGR6ky/u0 空白と重複をなくしたドロップダウンリストを作成したいんだけど、作業列つくらないと厳しいですか?
A列に重複がたくさんあるものから、重複を削除したリストをB2に追加したいですが、VBAでは厳しいですか?
A列に重複がたくさんあるものから、重複を削除したリストをB2に追加したいですが、VBAでは厳しいですか?
149デフォルトの名無しさん (ワキゲー MM82-5gYI)
2017/05/22(月) 23:39:29.41ID:W5+S3ypfM >>148
繰り返しとifでいける
繰り返しとifでいける
150デフォルトの名無しさん (ワッチョイ fa61-iXcy)
2017/05/22(月) 23:41:44.53ID:EzxM7okx0151デフォルトの名無しさん (ワッチョイ 8a2d-8zZG)
2017/05/22(月) 23:43:11.76ID:fGR6ky/u0 >>149
ループでリストってできるんですか!!知りませんでした。
例えば1〜"A1に入力された数字"までのリストとかも可能ですか??
A1に20とあった場合、1・2・3・4・5・6・・・・20といった感じで。
ループでリストってできるんですか!!知りませんでした。
例えば1〜"A1に入力された数字"までのリストとかも可能ですか??
A1に20とあった場合、1・2・3・4・5・6・・・・20といった感じで。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- テレビ朝日 本社から男性が転落し死亡。関連会社社員か 当たった通行人が左肩軽傷 [阿弥陀ヶ峰★]
- テレビ朝日本社から20~30代の関連会社社員とみられる男性が転落し死亡 六本木けやき坂通りの通行人にはけが人なし [少考さん★]
- 小島瑠璃子さん、代表取締役を務める会社を破産申請 [牛丼★]
- 「残クレ」でマイホーム、国が銀行向け保険 新型住宅ローン普及促す -日経 ★3 [少考さん★]
- 日本、G7への中国招待を懸念 議長国フランスに慎重な対応要請 [どどん★]
- 【サッカー】日本代表、FIFAランキング“4位”の強豪イングランドとの対戦が正式決定! 来年3月に聖地ウェンブリーで激突へ [久太郎★]
- 千晴におちんちん舐めてもらいたい♥
- 姉は貧乳で妹は巨乳ってパターンよくあるよな
- 【高市維新】 日本維新の会さん。 身を切りまくり。 自分や同僚議員、秘書の会社に「公金」を支出しまくっている事が続々と判明 [485983549]
- 【悲報】ジャップ、日中戦争に賛成が5割弱...軍歌の音が聞こえる... [856698234]
- ひまだねー
- youtubeでネタバレコメントするの楽しい
