Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→


	【81560】Re:taskkill.exeを実行する際のウィンド...

YAMADA - 20/12/4(金) 17:35 -


	引用なし

	パスワード

OK様
せめてウィンドウを小さくして隅の方に移動させたいです。そうしないと同時並行して動かしているブラウザを操作しにくいです。

▼OK さん：
>ウィンドウは一瞬で消えると思いますが、全く
>表示させないで、ということですか？

・ツリー全体表示


	【81559】Re:taskkill.exeを実行する際のウィンド...

OK - 20/12/4(金) 15:02 -


	引用なし

	パスワード

ウィンドウは一瞬で消えると思いますが、全く
表示させないで、ということですか？

・ツリー全体表示


	【81558】taskkill.exeを実行する際のウィンドウを...

YAMADA - 20/12/3(木) 16:59 -


	引用なし

	パスワード

VBAでスクレイピングを行っています
Set objIE= CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る
のところで止まってしまうことがあるので
Public Sub IeProcessKill()
Dim objShell As Object
Dim objExec As Object
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("taskkill.exe /F /IM iexplore.exe")
WaitFor (2)
End Sub
を教えていただきました。一応うまくいくのですが
windows\system32\taskkill.exe
というウィンドウが出てきます。できれば出さないようにしたいのですがどうすればいいですか

・ツリー全体表示


	【81557】Re:図形のファイル存在がうまくいかない

YAMADA - 20/12/1(火) 11:14 -


	引用なし

	パスワード

▼マナさん：
ありがとうございます。
（同時にべつな問題が出てきたので少し時間がかかっていますが）
そういう場面に遭遇したら試してみます。

>▼YAMADA さん：
>
>>DoEventsを.Chart.Pasteを入れてもうまくいきません
>
>数を増やすか
>
>With ActiveSheet.ChartObjects("貼付用")
>.select　　　'追加
>.Chart.Paste

・ツリー全体表示


	【81556】Re:計算の誤差

OK - 20/11/30(月) 18:07 -


	引用なし

	パスワード

電卓で21.9999となった、ということは、
小数部分のスイッチが「F」になっていると思います。

私が電卓計算の結果が22になったのは、
小数部分のスイッチが「F」以外になっていたからでした。

ht　tps://dokugaku.info/kotu/den-6.htm

・ツリー全体表示


	【81555】Re:計算の誤差

OK - 20/11/30(月) 17:46 -


	引用なし

	パスワード

デフォルト状態のウィンドウズ10添付の電卓(calc.exe)
で6/9*33を計算したら22になりました。

・ツリー全体表示


	【81554】Re:計算の誤差

OK - 20/11/30(月) 17:42 -


	引用なし

	パスワード

>電卓計算は21.9999です。

電卓のラウンドセレクター等の設定、表示桁数、メーカーにもよると思います。
私の電卓で計算したら22になりました。

・ツリー全体表示


	【81553】Re:計算の誤差

OK - 20/11/30(月) 17:36 -


	引用なし

	パスワード

四則演算の順序を少し無視して計算を分解、通分
したら↓のようになります。

6/9*33
↓
(2×3)÷(3×3)×(3×11)
2÷3×(3×11)
↓
2×11×3(分子)
-----
3(分母)
↓
2×11
↓
22

エクセル内部の計算は詳しいサイトを見てください。※私は分かりません。

エクセルの浮動小数点数演算誤差と四則計算の順番によるのかな？
詳しくないので説明できません＆自信ありません。

・ツリー全体表示


	【81552】Re:セルをダブルクリックしたら

マナ - 20/11/29(日) 16:03 -


	引用なし

	パスワード

▼moro さん：

End(xlToLeft)で、右端セルがどこかを調べてはどうでしょうか。

・ツリー全体表示


	【81551】Re:セルをダブルクリックしたら

moro - 20/11/29(日) 15:45 -


	引用なし

	パスワード

▼マナさん：
>▼moro さん：
>
>試してみたことを教えていただけますか

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　　With Target　
　　
　　　 Target.Copy
　　　 Cancel = True
　　　　
　　End With

End Sub

セル単体だとできるのですが、ここからセル範囲にする方法がよくわからないので、教えていただけるとありがたいです。

・ツリー全体表示


	【81550】Re:セルをダブルクリックしたら

マナ - 20/11/29(日) 14:22 -


	引用なし

	パスワード

▼moro さん：

試してみたことを教えていただけますか

・ツリー全体表示


	【81549】セルをダブルクリックしたら

moro - 20/11/29(日) 14:10 -


	引用なし

	パスワード

あるセルをダブルクリックしたら、そのセルから右にある範囲までコピーモードにしたいのですが、その方法について教えていただければと思まいますのでよろしくお願いします。

（例）A2セルをダブルクリックしたら、F2セルまでコピーモードにする

・ツリー全体表示


	【81548】Re:図形のファイル存在がうまくいかない

マナ - 20/11/29(日) 11:20 -


	引用なし

	パスワード

▼YAMADA さん：

>DoEventsを.Chart.Pasteを入れてもうまくいきません

数を増やすか

With ActiveSheet.ChartObjects("貼付用")
.select　　　'追加
.Chart.Paste

・ツリー全体表示


	【81547】図形のファイル存在がうまくいかない

YAMADA - 20/11/29(日) 10:29 -


	引用なし

	パスワード

VBAでエクセルのシートにグラフを表示し、それをファイル保存します。
図は綺麗にできていて、通常はうまくいきます。しかし、同時に他のソフト（Webなど別のアプリ）を動かしたり、通信が遅いとファイルがうまく保存しません（小さい中身のないファイルになる）。バッティングするようなら少し待ってもいいのですが、いつでもうまく保存するにはどうすればいいですか。
以下が、プログラムです

Application.OnTime Now, Procedure:="'保存 """ & ファイル名 & """ '"

Sub 保存(ファイル名 As String)
利用者 = Application.UserName: If 利用者 = "Taro Yamada" Then 利用者 = "Taro"
a = "C:\Users\" & 利用者 & "\OneDrive\OneDriveドキュメント\エクセル" & "\Chart\" & ファイル名 & ".jpg"
With ActiveSheet.ChartObjects("貼付用")
.Chart.Paste
.Chart.Export "C:\Users\" & 利用者 & "\OneDrive\OneDriveドキュメント\エクセル" & "\Chart\" & ファイル名 & ".jpg"
.Delete
End With
End Sub

DoEventsを.Chart.Pasteを入れてもうまくいきません

・ツリー全体表示


	【81546】計算の誤差

大福 - 20/11/24(火) 12:26 -


	引用なし

	パスワード

excelで6/9＊33＝22.000になります。電卓計算は21.9999です。
どうして誤差が出るのでしょうか？教えてください。

・ツリー全体表示


	【81544】Re:特定のフィールドの左3文字を非表示に

YS - 20/11/22(日) 21:18 -


	引用なし

	パスワード

▼γ さん：
>表示形式だけでの対応は無理でしょう。
>値そのものをMID関数で修正したほうが手っ取り早いでしょう。
>消さないものは必要に応じて別途改めて取得する前提です。

ご回答ありがとうございます。
これは、クエリデザインで式を書くということでしょうか？
OLE経由の過程でトリミングすることは出来ないのでしょうか？

・ツリー全体表示


	【81543】Re:特定のフィールドの左3文字を非表示に

γ - 20/11/15(日) 17:18 -


	引用なし

	パスワード

表示形式だけでの対応は無理でしょう。
値そのものをMID関数で修正したほうが手っ取り早いでしょう。
消さないものは必要に応じて別途改めて取得する前提です。

・ツリー全体表示


	【81542】Re:特定のフィールドの左3文字を非表示に

YS - 20/11/15(日) 13:20 -


	引用なし

	パスワード

環境は、win7 office2003です。よろしくお願いいたします。

・ツリー全体表示


	【81541】特定のフィールドの左3文字を非表示に

YS - 20/11/15(日) 13:17 -


	引用なし

	パスワード

以下のコードでmdbからクエリをexcelに入れて印刷しようとしています。

Dim mycon As ADODB.Connection

Dim fin As String
Dim ador As Excel.Range
Dim adorr As ADODB.Recordset

Set mycon = New ADODB.Connection

fin = "**.mdb"
With New Excel.Application
　 Set ador = .Workbooks.Open("**.xls").ActiveSheet.Range("a2")
　
　
　 .Visible = True
End With
With ador.Worksheet.PageSetup

　 .LeftMargin = 0
　　.RightMargin = 0
　.TopMargin = 0
　　.BottomMargin = 0
　　.CenterHorizontally = True
.CenterVertically = True
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintGridlines = True

　　End With
ador.Worksheet.PrintPreview

With mycon
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=" & fin
.Open
Set adorr = .Execute("** クエリ")
ador.CopyFromRecordset adorr
　With ador.CurrentRegion.Borders

　.LineStyle = xlDouble
End With

adorr.Close
mycon.Close

End With

mdbには商品コードフィールドがありそのフィールドには同じ数字が3桁ありその3文字を非表示にしたいです。商品コード12345678なら45678のように左3文字をフィールド全て非表示にするやり方をご教授お願いいたします。また、印刷に関してもご指摘ありましたら、重ねてお願いいたします。

・ツリー全体表示


	【81540】VBAでWebのスクレイピング

YAMADA - 20/11/13(金) 15:18 -


	引用なし

	パスワード

VBAでWebのスクレイピングを行っています。
まず Windows 8.1 Excel32ビット環境でプログラム作成し正常に動作することを確認しました
続いて、別のPC Windows 10.0 Excel32ビットで動作させたところ

実行時エラー 2125463506(815002e)
このエラーコードに関連付けられたテキストが見つかりませんでした

のエラーが発生し
場所は
Set objIE = CreateObject("InternetExplorer.Application")
であることがわかりました。

何が原因か教えてください

・ツリー全体表示


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47 / 3841 ﾍﾟｰｼﾞ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free