Excel VBA 質問スレ Part41©5ch.io
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん 転載ダメ©2ch.net
2016/04/27(水) 04:11:46.79ID:Nk+oP5xRコード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part40
http://echo.2ch.net/test/read.cgi/tech/1455817784/
※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 122
http://echo.2ch.net/test/read.cgi/bsoft/1461287268/
0478デフォルトの名無しさん
2016/06/04(土) 13:51:00.00ID:qmE4Ukk224*60*60/180
Excelでは1日を1で表す
180秒で1増える様に上の値を掛ける
0479デフォルトの名無しさん
2016/06/04(土) 18:51:18.35ID:Urj/a8QZどうでもいいけどこれ時刻の書式間違ってね？
"hh:mm:dd" → "hh:mm:ss"
0480デフォルトの名無しさん
2016/06/04(土) 19:36:59.18ID:rYWf1jQa0481デフォルトの名無しさん
2016/06/04(土) 21:10:02.67ID:laCcMYDZ用途があるなら便利じゃないの？
よくわからない質問だなあ…
0482デフォルトの名無しさん
2016/06/04(土) 22:25:12.69ID:rYWf1jQaごめんなさい。愚痴です
Obj.select(変換式).from(情報源).where(抽出条件).orderby(大小関係)
ってするべきなんだけど難しくて。
Obj.from(情報源).where(抽出条件).select(変換式).orderby(大小関係)
だったら処理する順通りだから何とかなるけど。
0483デフォルトの名無しさん
2016/06/04(土) 23:19:26.57ID:wPHlgGMmsql文て見づらくなる時もあるからこんなのもいいかもね
Dim SqlClass As CreateSql
Dim SqlList As String
Set SqlClass = New CreateSql
Call SqlClass.SqlSelect("テスト用テーブル")
Call SqlClass.SqlWhere("条件", "A")
Call SqlClass.SqlOrderD("条件B")
SqlList = SqlClass.SqlCode
0484デフォルトの名無しさん
2016/06/04(土) 23:44:25.98ID:6mTFRE/rSendKeys "{F2}"
SendKeys "+{up}"
SendKeys "^{c}"
SetCursorPos 1710, 910
' mouse_event 2
' mouse_event 4
セルを選択し、書き込みモード？の状態にしてから内容を全てコピーして
（セルから直接コピーだとペーストさせてくれないソフトを使ってます）
マウスを指定した座標に移動させそこでクリックした後ペースト
というマクロを作りたいのですが、処理が上手くいきません
上記のマウスをクリックさせる を含めないとコピーが上手くいくのですが
マウスをクリック を含めると内容をコピーしてくれてません
原因は分かりますか？
0485482
2016/06/05(日) 00:07:58.54ID:6XcU5txUそれって本当のSQLで、SQL文をどうやって作るかっていう問題に見える。
Obj.select(変換式:=2倍).from(情報源:=配列a).where(抽出条件:=100未満).orderby(大小関係:=昇順)
みたいなのを想定してます。
0486デフォルトの名無しさん
2016/06/05(日) 00:12:16.96ID:7g2ahIho0487デフォルトの名無しさん
2016/06/05(日) 00:18:38.66ID:O7He+r7Kクリップボードにデータ取り込みたいならSendKeysよりも
DataObject使った方が楽だと思うけど・・・
Dim d As New DataObject
d.SetText Range("A1").Value
d.PutInClipboard
クリップボードとデータのやりとりをする
https://www.moug.net/tech/exvba/0150091.html
0488デフォルトの名無しさん
2016/06/05(日) 00:29:18.79ID:BIV+QBMm楽でしたね
ありがとうございます！
0489デフォルトの名無しさん
2016/06/05(日) 01:27:52.16ID:pdmfsKhtこれは興味深いですね
Linqやラムダ式をExcelで表現出来たら是非教えてください。
0490デフォルトの名無しさん
2016/06/05(日) 08:08:49.61ID:iCXItJy9変更しても呼び出し元では変数の中身が元に
戻ってしまいいますがこれは何故でしょうか。
参照で渡せないのでしょうか。
0491デフォルトの名無しさん
2016/06/05(日) 08:45:52.53ID:26+uwwbzそんなことなった経験がない
ちょっとそのコードさらしてみてよ
0492デフォルトの名無しさん
2016/06/05(日) 09:01:09.75ID:VCr+WiRz普通に参照渡しで、呼び出し側の文字列も変わる
たぶん作ったコードがバグってる
0493デフォルトの名無しさん
2016/06/05(日) 09:33:07.41ID:6XcU5txUカッコ付けてない？
Sub changeString(ByRef s As String)
s = "changed"
End Sub
というSubを作って、
s1$ = "original"
changeString s1 ← カッコなし
?s1
changed ← 変わった
s1$ = "original"
changeString(s1) ← カッコあり
?s1
original ← 変わらず
0494デフォルトの名無しさん
2016/06/05(日) 09:56:32.90ID:iCXItJy9こういう感じで書いています。
Private Sub CommandButton1_Click()
Dim s as string
s = "a"
StringCheck(s)
End Sub
Function StringCheck(ByRef st As String)
if st = "a" then
st = "b"
end if
End Function
>>493
かっこをつけてました。
かっこをつけると駄目なんでしょうか？
Cではかっこあっても参照で渡せたような気がします。
0495デフォルトの名無しさん
2016/06/05(日) 10:02:00.58ID:VCr+WiRz以前議論した内容
(val)の参照が渡されるから
callをつければvalの参照が渡される
0496デフォルトの名無しさん
2016/06/05(日) 10:11:20.63ID:3QH2XO7hhttp://echo.2ch.net/test/read.cgi/tech/1455817784/356
勉強になった
0497デフォルトの名無しさん
2016/06/05(日) 10:18:15.27ID:iCXItJy9(val)で渡されてしまうとは予想外でした。
確かにかっこを取ると参照で渡せました。
callでも問題なく渡せました。
>491-495
皆さんありがとうございました！
>>496
前スレで話題にあげたばかりだったのですね。
見ておけばよかった・・・ すみません。
0498デフォルトの名無しさん
2016/06/05(日) 14:20:18.87ID:Uhyyv1sV便利ですか？
が質問じゃないのか
0499デフォルトの名無しさん
2016/06/05(日) 15:24:31.11ID:pdmfsKhtシートで1セルの範囲に"Hoge"という名前を付けると
VBA側でRange('Hoge").valueでセル値の内容を確認することが出来ますが、
処理実行中にこのコードに来る前に、他のBookがActiveになると、
このコードが実行されるときにエラーになります。
これはつまりExcel側がら名前を付けた範囲の情報がBookの情報を持っておらず、
シート情報からしか持っていない為に起こる事象だと思うんですが、
ThisWorkbook.Rangeというプロパティは存在しないので
ThisWorkbook.Range("Hoge").valueとも書けないですし、
このコード直前でThisWorkbook.Activateとしても結局は再現性の低いバグになるだけで、
根本的な解決にならないのは分かります。
名前付き範囲を使ったままで何か良い解決策はないでしょうか？
0500デフォルトの名無しさん
2016/06/05(日) 15:42:08.47ID:WJNSNmMN0501デフォルトの名無しさん
2016/06/05(日) 15:50:22.50ID:pdmfsKhtSheet1にそんな名前付き範囲はないって怒られました
0502デフォルトの名無しさん
2016/06/05(日) 15:54:11.18ID:3QH2XO7hThisWorkbook.Names("Hoge").RefersToRange
でRangeオブジェクトを取得するのはどう？
0503デフォルトの名無しさん
2016/06/05(日) 15:59:35.92ID:TevpUqb30504デフォルトの名無しさん
2016/06/05(日) 16:09:01.41ID:pdmfsKht取れました。ありがとうございます！
実は教えて頂く前に名前付き範囲からシート名とアドレスを取得して再構成して
読み出す方法で自己解決したのですが、教えて頂いた方がシンプルですね。
ありがたく使わせて頂きます。
他の方々もありがとうございました。
0505デフォルトの名無しさん
2016/06/06(月) 21:15:18.49ID:QZQfQuAS列挙型をPublicで指定すると、確かに外部から指定出来るようにはなるのですが、
他の関数やプロパティのようにモジュール名.列挙型で指定できないみたいです。
他のモジュールで同じ名前の列挙型を指定すると
かぶってしまうと思うのですが、
それはかぶらないように名前を付けるか、
或いは一つモジュールを用意してConstを
プロパティで引っ張るような方法しかないんでしょうか？
やたら一つのモジュールに区分なくConstを詰め込んで使いたくないし、
モジュールが都度増えて行くというのも分かり辛そうなので
何か良い方法があれば教えて頂けるとありがたいです。
0506デフォルトの名無しさん
2016/06/06(月) 21:45:31.54ID:Ly2klPtxいまのVBAはenumも使えるのか。初めて知った。
試してみたけど、
モジュール名.enum名.列挙子
でアクセスできたよ？
0507デフォルトの名無しさん
2016/06/07(火) 07:09:05.47ID:hS8RF9CRAndとかOrです
0508デフォルトの名無しさん
2016/06/07(火) 07:30:36.29ID:5Z2R8nagごめんなさい。出来ましたね。
インテリセンスが働かないので出来ないと思い込んでいました。
0509デフォルトの名無しさん
2016/06/07(火) 07:31:01.29ID:wxocoQF4使えるんじゃない？
使えない具体的な例は？
0510デフォルトの名無しさん
2016/06/07(火) 08:18:39.71ID:hS8RF9CR大人しくIf文とかと組み合わせます
0511デフォルトの名無しさん
2016/06/07(火) 08:31:37.46ID:HU9syj05Do While A And B
というコードは使えるけど？
0512デフォルトの名無しさん
2016/06/07(火) 08:33:21.12ID:WoNq4aYhVBAで、Do Until 〜 loopを使おうとしているのですが、条件式をDo Until Range... - Yahoo!知恵袋
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q134632328
0513デフォルトの名無しさん
2016/06/07(火) 09:04:31.80ID:wxocoQF4条件のところを関数にすれば良いよ
0514デフォルトの名無しさん
2016/06/07(火) 09:27:12.79ID:TVhUeGo1条件式全体を括弧でくくったか、Andの前後の式を括弧でくくってないとかだろうけど、
いろいろ試しそうなものだ・・
0515デフォルトの名無しさん
2016/06/07(火) 10:56:27.79ID:hS8RF9CRAndがOrみたいな役割になるんですね知りませんでした
みなさんどうもでした
0516デフォルトの名無しさん
2016/06/07(火) 11:22:54.42ID:HU9syj05そうですAndがOrみたいな役割になるんです（白目
0517デフォルトの名無しさん
2016/06/07(火) 17:21:47.75ID:UOQYJ0iXAndの否定はOr
まあ、そういうことかと
0518デフォルトの名無しさん
2016/06/07(火) 17:27:43.53ID:sZzqt4Xnhttp://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_row_del.html
↑のサイトを見て勉強しているのですが、コード例1ではB列が0の行を
削除するようになっていますが、例えばBとCに数値があり、B×Cが
100以上の場合に行を削除するようにするには
If Cells(i, 2).Value = 0 Then
をどのように書き換えればいいでしょうか。
0519デフォルトの名無しさん
2016/06/07(火) 17:59:50.27ID:sOD3zpDI↓
If (Cells(i, 2).Value) * (Cells(i, 3).Value) >= 100 Then
0520デフォルトの名無しさん
2016/06/07(火) 18:00:58.86ID:sOD3zpDI0521デフォルトの名無しさん
2016/06/07(火) 18:48:59.31ID:sZzqt4Xn実行した所、実行時エラー13が出てしまいました。
Bの数値に小数点があるのですが、関係ありますでしょうか。
B×CをDに表示させ(Dは小数点無し)、Dを参照させましたが、
同じエラーが出てしまいます。
0522デフォルトの名無しさん
2016/06/07(火) 19:02:38.77ID:HU9syj050523デフォルトの名無しさん
2016/06/07(火) 19:18:16.59ID:Ic9MVfcwhttp://officetanaka.net/excel/vba/error/execution_error/error_13.htm
0524デフォルトの名無しさん
2016/06/07(火) 19:27:44.96ID:HU9syj05>B×CをDに表示させ
この時点でDは数値型に間違いないだろう。それと100を比較して実行時エラー13になるとは・・・
はて？
0525デフォルトの名無しさん
2016/06/07(火) 19:58:48.10ID:xO/yIWhK書き込むより検索したほうが早くないか
型ノ]不一致
0526デフォルトの名無しさん
2016/06/07(火) 20:07:46.69ID:xO/yIWhKhttp://stamp-uploda.com/src/file2030.jpg
ならんが
ついでにBに50、Cに6.5としてCを文字列にしても自動で型変換行って乗算は行われた
ステップインで
If (Cells(i, 2).Value) * (Cells(i, 3).Value) >= 100 Then
まで進めて、イミディエイトウィンドウで
?Cells(i, 2).Value
と
?Cells(i, 3).Value
を見れば原因がわかると思う
0527デフォルトの名無しさん
2016/06/07(火) 20:12:54.80ID:wxocoQF40528デフォルトの名無しさん
2016/06/07(火) 21:33:26.82ID:sZzqt4Xnイミディエイトウィンドウで原因が分かりました。
すみません、お騒がせしました。
0529デフォルトの名無しさん
2016/06/07(火) 21:37:21.32ID:HU9syj05ごめんなさいスマホだとつい億劫で
0530デフォルトの名無しさん
2016/06/07(火) 21:38:15.15ID:HU9syj05で具体的に何？
0531デフォルトの名無しさん
2016/06/07(火) 21:54:06.30ID:xO/yIWhK答え教えて〜ちょっと気になる
0532デフォルトの名無しさん
2016/06/07(火) 22:02:37.05ID:oC37LPsM0533デフォルトの名無しさん
2016/06/08(水) 01:56:48.79ID:2INbON7TマクロA終了→マクロB起動なら上手くいくのですが
マクロAからマクロBを呼び出す だと失敗します
マクロAを一旦終了させてからBに繋げる方法はないでしょうか
0534デフォルトの名無しさん
2016/06/08(水) 02:11:49.12ID:bRA8ZG5u単なる自分のつまらない勘違いでした・・・
みなさんに時間取らせて申し訳なかったです
0535デフォルトの名無しさん
2016/06/08(水) 02:28:20.54ID:X5C6AThWそのあとマクロBをよんであげれば？
0536デフォルトの名無しさん
2016/06/08(水) 09:19:43.97ID:wPaWM/F4>マクロAを一旦終了させてからBに繋げる方法はないでしょうか
2行目に答えが・・
0537デフォルトの名無しさん
2016/06/08(水) 16:07:47.23ID:2INbON7TマクロCでAを呼んだあと続けてBも呼ぶと 全て含めて1つの処理 と見なされるみたいで
AからBを呼び出すのと変わらないです そうなると失敗してしまいます
>>536
一旦処理を終了する為にAの処理の終わりに 1秒後Bを呼び出す のタイマーをセットして
今は使用しているのですが、その1秒が惜しいです。0.1秒だと反応しないです。
タイムラグなしに処理を終わらせ再開する方法はないものかと質問させていただきました。
0538デフォルトの名無しさん
2016/06/08(水) 16:15:03.03ID:BHUiZVaK0539デフォルトの名無しさん
2016/06/08(水) 16:34:33.35ID:lKFv6c/RどこかのセルにAが動作中か終了かの状態を表示しておいて
Bでそのセルを見てAが終了するまでループして待機するとか
0540デフォルトの名無しさん
2016/06/08(水) 17:30:32.12ID:EJkZd8pqAPIとか使って代替した方がいいんじゃあ・・・
0541デフォルトの名無しさん
2016/06/08(水) 19:15:25.42ID:k2i9YcBT長めの文を入れて読ませると読み上げてる途中は他のExcel操作が全くできません。
これを防ぐ方法はありますか？
他言語でいう別スレッドで実行させたいのですが。
0542デフォルトの名無しさん
2016/06/08(水) 20:02:11.36ID:J4qccP96非同期にしたい処理をvbsに逃がすくらいしか・・・
0543デフォルトの名無しさん
2016/06/08(水) 20:08:46.59ID:J2Tk6QYUそれはキーの受け側の問題では？
高速なキー入力に反応出来てないんだと。
0544デフォルトの名無しさん
2016/06/08(水) 20:16:02.98ID:k2i9YcBTそれは具体的にはどうすればいいのでしょうか？
VBAのコードからvbsを使うことはできる？
0545デフォルトの名無しさん
2016/06/08(水) 20:27:54.30ID:P+TyVjZjちょっと調べたらSpeech APIなんてものがあるんだね。
面白そうだからトライしてみようかな
0546デフォルトの名無しさん
2016/06/08(水) 20:33:09.37ID:8NxCW7kQこんな感じとか？
--- exelSpeech.vbs (適当なフォルダにファイル保存)-----------------
Dim exelAp
If WScript.Arguments.Count Then
set exelAp = CreateObject("Excel.Application")
For Each arg In WScript.Arguments
exelAp.Speech.Speak arg
Next
End if
--- Excel側マクロ ---------------------------------------------
Sub test()
Call ExecVBS("d:\exelSpeech.vbs", "Hello", "Microsoft Speech ")
End Sub
Private Sub ExecVBS(strPath, ParamArray argv())
Dim strWS As String
strWS = "WScript.exe """ & strPath & """"
For Each arg In argv
strWS = strWS & " """ & arg & """"
Next
Call Shell(strWS)
End Sub
0547デフォルトの名無しさん
2016/06/08(水) 21:18:47.33ID:IzbVLKR1別プロセスでエクセル起動して使う
0548デフォルトの名無しさん
2016/06/08(水) 21:39:22.56ID:P+TyVjZjなぜダメなんだろう．．．
0549デフォルトの名無しさん
2016/06/08(水) 22:07:45.81ID:P+TyVjZj0550デフォルトの名無しさん
2016/06/08(水) 22:56:43.83ID:zzDG0CvJリアルスレ違い？
0551デフォルトの名無しさん
2016/06/08(水) 23:02:28.85ID:P+TyVjZjいや>>541の問題
出来たには出来たけどdllが必要になる
0552デフォルトの名無しさん
2016/06/09(木) 02:18:01.25ID:Y6zIWp2Zfor nextのループで空白セル削除すると上手くいかない
参照先のセルで条件判断しちゃうのだろうけど仕組みがイマイチ理解出来ないです...
0553デフォルトの名無しさん
2016/06/09(木) 09:49:57.32ID:usJpFq2/for関係なくない
どんなコードと数式書いてるの？
0554デフォルトの名無しさん
2016/06/09(木) 11:34:40.11ID:joa/BeB6dllが必要というのはわかったけど
ExcelのVBAのコードではなんの呪文を書けばいいのでしょうか？
0555デフォルトの名無しさん
2016/06/09(木) 17:07:47.74ID:CPZKJ0rVCall SpeakAPI("Hello World")
End Sub
Private Sub SpeakAPI(SpeakText)
Const SVSFlagsAsync = 1 '非同期
Set SpV = CreateObject("SAPI.SpVoice")
Call SpV.Speak(SpeakText, SVSFlagsAsync)
Do
DoEvents
Loop Until SpV.WaitUntilDone(10)
End Sub
0556デフォルトの名無しさん
2016/06/09(木) 18:18:21.44ID:/Mjso7pS0557デフォルトの名無しさん
2016/06/09(木) 19:16:56.26ID:5sPb0rLuWindow10だけど日本語話してくれたよ。
他の環境でも多分なんちゃら.msiをインスコすればOKなんじゃないだろうか。
0558デフォルトの名無しさん
2016/06/09(木) 19:28:33.86ID:/Mjso7pS0559デフォルトの名無しさん
2016/06/09(木) 19:45:23.02ID:5sPb0rLu読み終わるまでSub SpeakAPIから抜けないけどUIは受けるというわけか。
それでニーズは満たすのかもね。
>>558
7でもダメだった
0560デフォルトの名無しさん
2016/06/09(木) 22:14:03.49ID:Nw1jdtR1変数名とか入力値で検索する方法ってないですか？
深い階層に有ったりどの変数に目当ての値が入ってるか曖昧な時にいちいち開くの面倒です
0561デフォルトの名無しさん
2016/06/09(木) 23:00:19.61ID:WOvdLwlE永久ループが怖くて、
無理矢理For Nextを使う俺は小心者。
0562デフォルトの名無しさん
2016/06/09(木) 23:03:31.96ID:ehD8QNF8せっかく用意されてる命令をなぜ使わないの
0563デフォルトの名無しさん
2016/06/09(木) 23:31:40.65ID:usJpFq2/俺もそうだった。ただdoloopってエクセルで使う機会は少ないと思う。
大体はfornext、foreachで事足りる。
ゲームだとdoloopは死ぬほど使うけどね
0564デフォルトの名無しさん
2016/06/09(木) 23:47:41.71ID:zgYGqzoCいいやり方だと思うけど、Set SpV = CreateObject("SAPI.SpVoice")の
SpVって変数の寿命が尽きると読み上げも止まっちゃうみたいだね。
だから別の Sub や Function の中にその "SpeakAPI"を組み込んで使う場合は
Do〜Loop の間は待ちが発生する。
0565デフォルトの名無しさん
2016/06/09(木) 23:58:14.68ID:usJpFq2/そうすればエクセルと同期とか関係なしに再生できると思う
0566デフォルトの名無しさん
2016/06/10(金) 00:16:09.21ID:3rMMNq1l＞ゲームだとdoloopは死ぬほど使うけどね
俺もそうだった
今はゲームではどちらもそうそう使わない
0567デフォルトの名無しさん
2016/06/10(金) 00:28:38.18ID:3rMMNq1l音楽ファイルならそんなことしなくてもsndPlaySoundやmciSendStringのAPIで行けると思う
0568555
2016/06/10(金) 03:53:33.12ID:WIrOC41uグローバル変数とかにすればLoop待ちせず完全に非同期に出来るみたいね
…ついでにクラスモジュール化してみた
--- 標準モジュール（テスト用）
Private clsSpv As New SpeechAPI
Sub test()
Call clsSpv.Speak("Hello World")
Call clsSpv.Speak("Speech API Test")
End Sub
--- クラスモジュール(SpeechAPI.cls)
Private Const SVSFlagsAsync = 1 '非同期
Private objSpV As Object
Private Sub Class_Initialize()
Set objSpV = CreateObject("SAPI.SpVoice")
End Sub
Private Sub Class_Terminate()
Call Me.WaitSpeak 'Speak終了前に破棄されそうな場合は待機
Set objSpV = Nothing
End Sub
Sub Speak(SpeakText)
Call objSpV.Speak(SpeakText, SVSFlagsAsync)
End Sub
Sub WaitSpeak()
Do
DoEvents
Loop Until objSpV.WaitUntilDone(10)
End Sub
0569デフォルトの名無しさん
2016/06/10(金) 12:15:48.39ID:EYLL7b//それだとデストラクタで、結局音声がなり終わるまで固まらない？
0570デフォルトの名無しさん
2016/06/10(金) 12:22:38.95ID:4oO9NPCl0571デフォルトの名無しさん
2016/06/10(金) 12:32:42.79ID:EYLL7b//いやいや、音声が 鳴ってる最中に次の処理に進める？
0572デフォルトの名無しさん
2016/06/10(金) 15:33:45.40ID:i706FGHyもしいまWindows7で日本語も対応させるにはどこにいってなにをインストールすればいいのでしょうか？
0573デフォルトの名無しさん
2016/06/10(金) 16:12:49.25ID:4oO9NPCl漢字もかなりこなれた感じで読み上げてくれるよ。
MSSpeach_SR_ja-JP_TELE.msi というものをダウンロードすればいいんだと思うけど...違ったらゴメン
0574デフォルトの名無しさん
2016/06/11(土) 01:47:26.20ID:02ogFup4OS添付のSAPI5じゃなくMicrosoft Speech Platformを使う方法でなら
Microsoft Speech Platform - Runtime (Version 11)
https://www.microsoft.com/en-us/download/details.aspx?id=27225
→ SpeechPlatformRuntime.msi をダウンロード
Microsoft Speech Platform - Runtime Languages (Version 11)
https://www.microsoft.com/en-us/download/details.aspx?id=27224
→ MSSpeech_TTS_ja-JP_Haruka.msi をダウンロード
上記インストールして、コードを以下のように書き換える
Set s = CreateObject("Speech.SpVoice")
s.Speak "helloこんにちは"
※ オブジェクトの仕様はSAPI.SpVoiceとほぼ同じっぽい
※ OS標準のSAPI5用の無料音声合成エンジンは見つけられなかった
Win8以降ならSAPIでも日本語対応しているっぽいけど…
0575デフォルトの名無しさん
2016/06/11(土) 06:26:26.01ID:6cWsIMr7そうなんだ。
Win10だと CreateObject("SAPI.SpVoice") のままでOKなんで油断した。
0576デフォルトの名無しさん
2016/06/13(月) 09:25:34.07ID:8U53ckACAセルとBセルの組合せの重複をチェックしたいのですが、どうやれば良いですか。
今はC列に（C1=A1*21+B1）の作業域を設け、ｎ行が更新されるたびに
If Application.CountIf (Range ("C1:C200"), Cells(n,3)) > 1
とやってますが、少しでも時間短縮を図りたいのです。
つまりわかりやすさよりもスピード重視でお願いしますm(_ _)m
0577デフォルトの名無しさん
2016/06/13(月) 10:22:42.66ID:wX9Pf1Mm■ このスレッドは過去ログ倉庫に格納されています