饂飩コーディング

iOSアプリやら、Unityやら、Cocos2dやらごにょごにょ書いております

2021-01-01から1年間の記事一覧

Keychron K6 配送記録

Keychron K6 購入時のメモ どのくらいの日数でキーボードが手元に届くか?結論からいうと発送から3日で都内の自宅まで届きました!! 日付 所要日数 注文日 2021/10/04 - 発送日 2021/10/11 7 配達完日 2021/10/14 3 オンラインショップでの注文は 2021/10/…

Keychron K6 メカニカルキーボード(MacBook と Windows)

Keychron K6 メカニカルキーボードを購入した フルサイズキーボードの65%の大きさで小さいからマウスへの手の移動が短くてすむ。 英語配列だからプログラミングの時の記号入力が少しらく。 そもそも自分の手が小さいのでフルサイズキーボードよりも小さいキ…

VBAでPDFファイルを同期印刷する!

VBAでPDFファイルを印刷する!で検索すると確かに情報は沢山でてきます。 しかし今回やりたいのは「同期印刷」複数のPDFがフォルダに入っていてそれをFSOでなんとかしながら ループで各PDFファイルを印刷処理するとループががぁ~っと流れてしまい、 適切なS…

エラートラップ作って一定時間待機させてからエラーをリトライする方法

数値変数にInputBoxから数値を入力させると処理終了なんですが、 数値以外を入力すると変数に代入する時点でエラーになり それをトラップして三秒待ったのちに再度エラーが発生した処理を 行う流れです。リトライ回数を決めればある程度使えそう。 その時は…

Accessで日本語を読み上げさせてみる

ごめんなさい、丸パクリです なにに使えるかって、機器設定用の番号読み上げとか入力値チェックで読み上げれば ダブルチェックできる! Private Sub txt_test1_AfterUpdate() With CreateObject("SAPI.SpVoice") Set .voice = .GetVoices.Item(0) .Rate = 5 …

添付型フィールドにwavファイルを追加してボタンクリックで音を出す。

Accessで音を鳴らすにはいくつか方法がありますよね。 1,フォームにwavファイルを挿入して以下の様にする oleSound.Action = acOLEActivate 参考にさせていただきました。 tsware.jp 2,API使って音を出す方法 ・mciSendString ・PlaySoundなどなどそこで…

VBAで価格コムの洗濯機ランキングを取得してみる。

Option Compare Database Option Explicit Private Sub コマンド0_Click() Dim ieobj As InternetExplorer Set ieobj = New InternetExplorer ieobj.navigate ("https://kakaku.com/kaden/washing-machine/ranking_2110/hot/") ieobj.Visible = True 'Webブ…

帳票フォームにボタン付けてもVisible設定できません。

はい、帳票フォームにボタンつけたら色々できそうですよね。 レコードの内容によってボタンの表示・非表示をコントロールしたいですよね。はい!できません。まぁ、レコードごとにボタンみたいなコントロールつけて管理してたら システム不安定になるからで…

Excelファイルを開かずにパスワード有無を確認するには・・・

Excelでセルに=[Bファイル]Sheet1!$A$1 と書いてExcelファイルを開かずに他のファイルのセル値を取得することができますよね? それをexcelVBAで下の様に書くと、パスワードがかかったファイルは#Ref!になって検出できます。 Sub ボタン1_Click() Dim A As …

Access vba でexcelを操作してみる

参考にさせていただきました。 note.comwww.bayashita.com Public Sub excelSample() Dim xlApp As Object 'Excelアプリ' Dim xlBook As Object 'Excelブック' Dim xlSheet As Object 'Excelシート' Set xlApp = CreateObject("Excel.Application") xlApp.Vi…

VBAでコマンドプロンプトたたいた結果を受け取ろう

参考にさせていただきました。 officetanaka.net Sub xpdf_pdfinfo_getInformation() Dim WSH, wExec, sCmd As String, Result As String Set WSH = CreateObject("WScript.Shell") ''(1) sCmd = "dir C:\" sCmd = "C:\Users\xxxx\Desktop\test\pdfinfo.exe …

VBAでリストにプリンター一覧を追加し、選択したプリンタでPDFを印刷する。

以下の感じでリストにアイテムを追加する。 Private Sub Form_Load() 'フォーム読み込み時 Dim prt As Printer 'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加 For Each prt In Application.Printers Me.リスト10.AddItem prt.DeviceName N…

PowerShell??なんですかそれ?

WikiってみるとAS400のCLにも影響をうけているらしいので とっつきやすいかも? tonari-it.com

VBAでコマンドプロンプト使ってみるときに勉強になるサイト

vbabeginner.net