object1985

gantt
    title Webシステムの要件定義フェーズのタスク一覧
    dateFormat  YYYY-MM-DD
    section 機能要件の洗い出し
		画面設計の検討           :a1, 2023-04-01, 7d
		データ設計の検討           :a2, after a1, 5d
		機能設計の検討           :a3, after a2, 5d
    section 非機能要件の洗い出し
 パフォーマンス要件の洗い出し :b1, 2023-04-05, 4d

object1985

sequenceDiagram
    title ログインサンプル
    participant User
    participant ログイン処理

    User->>ログイン処理: ログインフォームを表示
    ログイン処理-->>User: ログインフォームを返す

object1985

//文字連結しつつ、「"CRLF"」という文字列区切りでクリップボードにコピー
//（Chrome,Edge,Firefox,Safari）開発者ツールで使用想定
hoge="";
document.querySelectorAll('button.ms-Link.7939f24e').forEach(e=>{
 hoge += e.innerText + "CRLF";
});
copy(hoge);

//一旦consoleに出力するなら以下。
//hoge="";

object1985

javascript:(function(){document.querySelectorAll('main,div,article,section').forEach(e => {e.style.width='initial';e.style.maxWidth='initial';});document.querySelectorAll('p').forEach(e => {e.style.width='initial';e.style.adding='initial';e.style.margin='initial';})})()

object1985

# セル内の特定位置より前まで抽出（★を半角スペースやかっこなどに置き換えて使う）
=LEFT(A1,FIND("★",A1)-1)

# 特定位置より後ろまで抽出するExcel関数（★を半角スペースやかっこなどに置き換えて使う）
=RIGHT(A1,LEN(A1)-(FIND("★",A1)-1))

A1セルに対象の文字があるとして記載
例）A1セルが「あああ★いいい」の場合、
A2セルに「=LEFT(A1,FIND("★",A1)-1)」で「あああ」
A3セルに「=RIGHT(A1,LEN(A1)-(FIND("★",A1)-1))」で「いいい」

object1985

Sub setAllSheet_zoomAndFirstSheetSelect()

zoomValue = InputBox("ZOOM倍率を10～100で入力してください", "", 100)
If zoomValue = "" Then
    Exit Sub
End If

'イミディエイトウィンドウで以下を実行
'全シートに対して繰り返しzoom(倍率)を設定する(数値は適宜修正すること)
'また最後に1シート目を選択するようにしている｡

object1985

Sub 複数ブックを元に新規ブックを作成する例()

'読み込み開始位置の指定。本VBAを記載するブックのActiveSheetに設定として記載想定。
Dim v読込データブック開始行 As Integer
v読込データブック開始行 = 2
Const v読込データブック開始列 As Integer = 1
Const v読込フォーマットブック開始行 As Integer = 2
Const v読込フォーマットブック開始列 As Integer = 2
Dim vファイル名 As String
Dim vフォーマットファイル名 As String

object1985

'時刻表示
Function getNow()
    getNow = Format(Date, "yyyy_mm_dd") & "_" & Format(Hour(Time), "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00")
End Function

object1985

Sub deleteNameDefine()
    Dim nm As Name
    On Error Resume Next
    i = 1
    For Each nm In ActiveWorkbook.Names
        nm.Delete
        i = i + 1
    Next
    On Error GoTo 0
    MsgBox "名前定義削除の処理完了。削除対象数：" & i

object1985

# Windows の WSL-Ubuntu での利用を想定。
# テキストファイル内に処理対象のファイルの絶対パスを記載し、1行1行処理していく。
# 処理結果をcheck.txtへ追記。
# 以下の例では6行目のみを抽出。
for f in `cat /mnt/c/sample/target.txt`; do echo $f; echo $f >> check.txt; head -n6 $f | tail -n1 >> check.txt; done