自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。
Visual Studio 2022(17.8.6)で､
MultiRowWinを11→12へアップデートしたら､デザイナが起動しなくなった｡
Visual Studioの修復､MultiRowWinのインストール､アンインストール
など繰り返したが拡張機能が入らなかった｡
(拡張機能>ManageExtensions>インストール済み)
C:\Program Files (x86)\MultiRowWin12\Bin\v12.0.4800.2017
GrapeCity.Win.MultiRow.VsDesign.Vs2022.vsix
を直接インストールしたら起動した｡
Dropboxフォルダの移動：
移動先にDropboxというフォルダがあると実行できない｡
USBメモリなどは指定できない｡
２つのPC(A,B)で実験：
AでBulkFileChangerを使い､作成日時､更新日時､アクセス日時変更｡
>更新日時の変更だけ再度インデックスされる｡ハッシュが同じなので､Bまで処理が波及しない｡
Aの同期停止､ファイルの中身を変更｡
BulkFileChangerで更新日時を戻す｡
同期再開｡
>AでファイルはアップロードされBも最新になる｡
Aの同期停止､ファイルを削除｡
同期再開｡
>Bでもファイルが削除される｡
A､Bで同期停止｡
Aでファイルを削除｡
Bでファイルを更新｡
同期再開｡
>ファイルは存在｡
A､Bで同期停止｡
Aでファイルを更新｡
Bでファイルを削除｡
同期再開｡
>ファイルは存在｡
※削除したファイルとハッシュが一致しないと削除しない｡
A､Bで同期停止｡
Aファイルを更新｡
Bファイルを更新｡
同期再開｡
>ハッシュが違うと競合ファイルが作成｡ハッシュが同じだと問題発生しない｡
Aの同期停止｡
Bのファイルをフォルダ外へ｡
Bで同期を待つ｡
Bで最初のファイルをフォルダ内へ戻す｡
Aの同期を再開｡
>Aで更新処理は実行されない｡
以前から更新しているファイルをGitHubで管理するためのメモ｡
GitHubでレポジトリを作成する｡
https://github.com/okamurax/ahk.git
のようなURLが発行される｡
以下はローカルのフォルダの中で
git init
git remote add r https://github.com/okamurax/ahk.git
※ここではrという名前でリモートレポジトリを登録｡
git add .
git commit -m “2024/01/11” .
git push -u r master
※最初のcommitを行うとmasterという名前のbranchが作成される｡
URL
https://github.com/okamurax/ahk/blob/master/startup.ahk
左側メニュー>構築>Firestore Database>データベースの作成
今回はテストモードで開始する｡
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
<!DOCTYPE html> <html lang="ja"> <head> <meta charset="UTF-8"> <title>test</title> <script src="https://cdn.jsdelivr.net/npm/vue/dist/vue.js"></script> <script src="https://unpkg.com/axios/dist/axios.min.js"></script> </head> <body> <div id="app"> <select type="text" v-model="selected"> <option>a</option> <option>b</option> </select> <input type="text" v-model="textVal"> <button @click="do_post">登録</button> <button @click="do_get">取得</button> <table> <tr v-for="x in lists"> <td>{{ x.fields.a.stringValue }}</td> <td>{{ x.fields.b.stringValue }}</td> </tr> </table> </div> <script> let v = new Vue({ el: "#app", data: { selected:"", textVal:"", lists:[] }, methods:{ do_get(){ // データ取得 axios .get("https://firestore.googleapis.com/v1/projects/[project id]/databases/(default)/documents/[collection]") .then(response=>{ this.lists = response.data.documents; console.log(response.data.documents); }); }, do_post(){ // データ登録 axios .post("https://firestore.googleapis.com/v1/projects/[project id]/databases/(default)/documents/[collection]",{ fields:{ a:{ stringValue:this.selected }, b:{ stringValue:this.textVal } } }) .then(response=>{ console.log(response); }) .catch(error=>{ console.log(error); }); } } }); </script> </body> </html> |
タスクトレイのWiFiをクリック>該当SSIDを右クリック>プロパティ
IP割り当てを手動に変更
･IPアドレス
･サブネットマスク
･ゲートウェイ
･優先DNS
環境によっては他の部分も設定しないとダメという情報もあったけど､
今回は上記だけ入力して繋がった｡(Win11)
1点､ハマったのは､会社はDHCPとDNSが違う環境だったこと｡
ipconfigのときに/allで確認できる｡
古いExcelファイルから呼び出しているDLLが動かなかった｡
･PtrSafe追加
最初はエラーだったけど､DeclareをDeclare PtrSafeに置き換えると､DLLファイルが見つからないとなる｡
･dumpbinインストール
Visual Studio>ツール>ツールと機能を取得>C++によるデスクトップ開発
Visual Studio>ツール>コマンドライン>開発者コマンドプロンプト
･関数名
dumpbin /exports “xx\xxx.dll”
･dll依存関係判定
dumpbin.exe /DEPENDENTS “xxx\xxx.dll”
･32/64bit判定
dumpbin /headers “xxx/xxx.dll”
･Officeのbit変更
面倒だけど､Officeを再インストールすることで解決
https://portal.office.com/account/
Officeアプリとデバイス>アプリとデバイスを表示
1-10,11-20,21-末で区間を区切って､区間の差を取得する｡
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 |
Function GetPeriod(sd, ed) ' 日付かどうか If IsDate(sd) = False Or IsDate(ed) = False Then GetPeriod = "9999" Exit Function End If ' 日付の差が妥当か If CDate(sd) > CDate(ed) Then GetPeriod = "9998" Exit Function End If sn = DateToNumber(sd) en = DateToNumber(ed) + 1 If Year(sd) = Year(ed) Then ' 年度の差がない場合 ElseIf Year(sd) + 1 = Year(ed) Then en = en + 36 ' 年度の差が1年の場合+36 Else ' 年度の差が2年以上はエラー GetPeriod = "9997" Exit Function End If GetPeriod = en - sn End Function Function DateToNumber(target) result = Month(target) * 3 - 2 Select Case Day(target) Case 1 To 10 result = result + 0 Case 11 To 20 result = result + 1 Case Else ' 21～ result = result + 2 End Select DateToNumber = result End Function Sub TestGetPeriod() ' 1-10 11-20 21-30 Debug.Print GetPeriod("a", "2023/12/4"), "9999" Debug.Print GetPeriod("2023/12/5", "2023/12/4"), "9998" Debug.Print GetPeriod("2023/12/5", "2023/12/5"), "1" ' 1の区間から2の区間 Debug.Print GetPeriod("2023/12/5", "2023/12/11"), "2" Debug.Print GetPeriod("2023/12/5", "2023/12/19"), "2" Debug.Print GetPeriod("2023/12/5", "2023/12/20"), "2" Debug.Print GetPeriod("2023/12/5", "2023/12/21"), "3" ' 2の区間から3の区間 Debug.Print GetPeriod("2023/1/19", "2023/1/21"), "2" Debug.Print GetPeriod("2023/1/20", "2023/1/22"), "2" ' 3の区間から Debug.Print GetPeriod("2023/1/21", "2023/1/22"), "1" Debug.Print GetPeriod("2023/1/31", "2023/2/1"), "2" ' 年度またぎ Debug.Print GetPeriod("2023/9/25", "2024/1/10"), "11" Debug.Print GetPeriod("2023/10/1", " 2024/3/31"), "18" End Sub |
特定のセルを選択した状態で実行すると、指定した列幅まで選択範囲を拡張する。事務処理で頻繁に目視チェック→塗りつぶしの作業があったため。
|
1 2 3 4 5 |
Sub test() ActiveSheet.Range("A" & Split(Selection(1).Address, "$")(2) & ":AA" & Split(Selection(Selection.Count).Address, "$")(2)).Select End Sub |
開発＞マクロ＞オプション＞test＞Ctrl+E
(重複しないショートカットを設定)
複数のシートを選択している状態なので、リボン(メニューバー)にボタンを追加
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
Sub test() Application.CommandBars("worksheet menu bar").Reset End Sub Sub auto_open() On Error Resume Next caption = "選択一覧" For x = 1 To 3 Application.CommandBars("worksheet menu bar").Controls(caption).Delete Next With Application.CommandBars("worksheet menu bar").Controls.Add(Type:=msoControlButton) .Style = msoButtonCaption .caption = caption .OnAction = "main" End With End Sub Sub auto_close() caption = "選択一覧" On Error Resume Next For x = 1 To 3 Application.CommandBars("worksheet menu bar").Controls(caption).Delete Next End Sub Sub Initialize() Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False End Sub Sub Finalize() Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub Sub main() Initialize caption = "選択一覧" exists = False For Each w In Sheets If w.Name = caption Then exists = True Exit For End If Next w If exists = False Then MsgBox caption & "シートが存在しません。" Exit Sub End If Sheets(caption).Rows("1:1000").Delete r = 1 For Each w In ActiveWindow.SelectedSheets If w.Name <> caption Then w.Range("A2:AD22").Copy Sheets(caption).Cells(r, 1).PasteSpecial xlPasteValues w.Range("A2:AD22").Copy Sheets(caption).Cells(r, 1).PasteSpecial xlPasteFormats End If r = r + 23 Next w Sheets(caption).Select Application.CutCopyMode = False Finalize End Sub |
●素材を集める
素材の種類は「事象」と「意見」がある。事象はネタ、意見は切り口となる。
最低限必要な素材は
・読後感・結論・伝えたいこと(意見)
・理由(意見)
・背景(事象)
文章の種類によって違いがあり、新聞のような文章は事象が多く意見は少ない。コラムやエッセイは逆。書く文章によってどのような素材が必要か考えておく。
素材の中に一つ、続きが読みたいと思うようなフックを準備する。
＞〇〇が流行っているけど、もう使わないほうがいい
＞〇〇社は〇〇を重視へ
●素材を書き出す
素材をもとに頭の中にある言いたいことを、主部と述部の短い文章で書く。ここでは、しっかりとした文章にする必要はない。
●仮見出しを作る
ここで作るのは、
・文章の仮見出し(タイトル)
・章/節の仮見出し
・段落の仮見出し
その仮見出しを実際に使うかどうかは関係ない。先ず仮見出しを作り、仮見出しを並べて文章の骨子を作る。何を伝えたいのか、どの順番で伝えたいのか、など、仮見出しを作ることで明確にできる。
●段落
仮見出しを見ながら、素材として作った文章を振り分ける。
段落の先頭に伝えたいことを持ってくる。関連性が強く分けることが難しい内容は連続して２つ結論を書いてしまう。
結論を補助する文章を以下のような関連性で繋げる。(サポートセンテンス)
順接： だから、そのため
結果： その結果
理由： なぜなら
逆説： でも、だが、しかし
換言： つまり
例 ： たとえば
添加： そのうえ、さらに
補足： ただし、ちなみに
並列： また、ならびに
転換： ところで
対比： 一方
選択： あるいは
条件： それなら、そうしましたら
●気をつけること
・過剰に主語を略さない。誰が？なにについて？具体的になにしてくれるの？など、相手の想像力に頼らない。省略が丁寧に感じることが多いので省略しがち。
・換喩、提喩に注意。助詞で区切って、それぞれパーツの中で、自分だけが理解できる表現になっていないか。それは自明なことなのか考える。
・文章はできるだけ短いほうがいいわけではない。意味が正しく伝わるような文章にすることが大切。 主部が同じなら「、」で繋げた方が自然な場合が多い。
・紋切り型の表現を避ける。
・書き出しだけは、へぇー、え？、なるほど、となるように。
・句読点や、センテンスの長さはリズムがあるかどうか、歌のように。
・意見、気持ち、事実は普通体にしてみる(する、したがつかない)
・体言止めを活用する場合、ある程度のかたまりごとに文末をつける。
・文末を短くする(させていただきます、という、すること、ついては)
・形容詞は対象に近づける。なるべく具体化して余り使わない。
・抽象表現(高品質など)は明確に。
・ビジネス枕、接続詞はなるべく使わない。
・あの、その、はなるべく使わない。
・が、の、は本当に必要か見直す。
・意味の重複に気をつける。
・受け身(作られている)をやめる。
・考え方を押し付けない。
・誰の意見なのかぼかさない。
・読者が知りたいことは何か？と考える。