常連

※１　個人のサービスやプロダクトなどの広告を目的とした投稿ではございませんので、ご安心してお読みいただければ幸いです。また、別サイトで掲載していたのは混乱を避けるために削除しました。ご迷惑をおかけして申し訳ございませんでした。

※２　専門的なプログラミング知識がない方でもメンテナンスができるよう、VBA（マクロ）は使用せず、関数のみで完結できるモジュールに仕上げたいです。


### 実現したいこと
同じ氏名で違う値（日付）があるものを、関数を使って1行にまとめたいと考えています。
現在1カ月のうちに、いつ・誰が業務報告書（日報）を上げていないかをリストアップするファイルを作成しています。
作成中のファイルは、下記URLからダウンロードしてください。
下記に説明しているものも、イメージができるよう画像を張り付けています、
https://5.gigafile.nu/0905-bac172f90e8ec82a7254c4a55f1c2d4ec


例えば、Aさんという方が１か月のうちで1日と15日に業務報告書が上がっていない場合、
Aさんという1行で1日と15日に×をつけるリストを作ります。

しかし現状、Aさんが業務報告書が上がっていない場合、
1日ごとに1行ずつ、それぞれ×がついている状態です。
。
これを関数を使って、1行で未記入の日付をまとめようと考えています。


### 前提（ファイルをご参照ください）
①ある日報システムから、日々の業務報告書が未入力の方をダウンロードして、シート「エラー一覧」に貼り付ける。
※従業員の情報は「社員情報」（画像④）としてバックアップをとっていて「未確定者一覧」に情報を反映させる

②シート「未確定者一覧」に未入力の日付に×をつける
（部署はシート「社員情報」のデータと付け合わせている）

### 発生している問題・エラーメッセージ
「実現したいこと」でも説明しましたが、未入力の方で日付を1日ずつ1行に分けるのではなく、「画像①」のように1日～31日の列の中で1行に納めるようにしたいです。


### 試したこと
IF・COUNTIF・MAX・INDEX関数の組み合わせで試したが、日付によっては空白が出るため適用ができないです。
参考）https://toushitsu-off8.com/excel-chouhuku-naraberu/


何分見づらい部分があるかもしれませんが、解決に向けてご教示いただければ幸いです。
よろしくお願いします。


【Excel】同じ氏名で違う値があるデータ⇒違う値を関数使用で1行にまとめたい（VBAなし）

### 前提
VBAのマクロで作成したCSVファイルを、PostgreSQLのテーブルにCOPYコマンドでインポートする作業をしています。

### 発生している問題
COPYコマンドを使用するためには、CSVファイルの時点で全ての値に「**全ての入力値をダブルクォーテーション（ ” ）でくくらないといけない**」という問題があります。
それならばとExcelでCSVで書き出そうとしても、Excelには「**CSV書き出し時にデータをダブルクオーテーションで囲む**」オプションがありません。

### 対応策
以下のURLを参考にして、全ての値がダブルクオーテーションで囲まれたCSVを作成しました。

●[テストに役立つ機能紹介 – Excelで全ての値にダブルクオーテーションが付いたCSVを作る方法](https://blog.e2info.co.jp/2021/02/16/%E3%83%86%E3%82%B9%E3%83%88%E3%81%AB%E5%BD%B9%E7%AB%8B%E3%81%A4%E6%A9%9F%E8%83%BD%E7%B4%B9%E4%BB%8B-excel%E3%81%A7%E5%85%A8%E3%81%A6%E3%81%AE%E5%80%A4%E3%81%AB%E3%83%80%E3%83%96%E3%83%AB/)

0. 「セルの書式設定」でユーザー定義：「**!”G/標準!”;!”G/標準!”;!”G/標準!”;!”G/標準!”**」を入力する
0. 「名前を付けて保存」で「**CSV (コンマ区切り) (*.csv)**」で保存する
0. テキストエディタ（今回は「NewQx」）でCSVファイルを開き、コマンドで「 “”” 」を「 ” 」に置換する
0. 「空白データにも『””』を定義しないといけない」ので、コマンドで「 ,, 」を「 ,””, 」に置換する
0. もう1回、4を実行する （1回だけだと全部が置換されないため）

### 実現したいこと
今回は目的通りのCSVを作成できましたが、テキストエディタを使用する手間がどうしてもかかります。
今後もデータベースにCSVファイルを差し込む作業は続くので、もっと簡単にダブルクオーテーションで囲まれたCSVファイルを作成できたらいいなと思っています。
また、この他のwebアプリでCSVファイルを使用する際、「全ての値をダブルクオーテーションで囲まれた」ものでなければならない場合がしばしばあるようです。
そもそもこうした機能に対して需要が無い、というのが現状なのかもしれませんが、実装されない何か事情があるのか気になっています。
ご意見をいただけると幸いです。
よろしくお願いいたします。

### 補足情報（FW/ツールのバージョンなど）
PC：Windows11
Excelのバージョン：Microsoft 365
QxEditorのバージョン：α 0.90





Excelに「CSV書き出し時にダブルクオーテーションで囲む」オプションが無いのはなぜでしょうか

### VBA実行時エラー'1004':SQL構文エラーの修正方法


- [ ] ExcelVBAにて、SQLの記述部分で出るエラー'1004'がでるので修正したい。


### 前提

・社内データベースのテーブルをExcelに書き出すためのVBAを作成しています。

・SQLはA5:SQL Mk-2というソフトで問題なく動くことを確認してからVBAに組み込んでいます。

・デバッグしたところ
　.Refresh BackgroundQuery:=False
　の部分で引っ掛かって止まります。

・ExcelのA1セルには
"ExternalData_1 : データの取り出し中..."
の表示のみで、テーブルの作成が止まります、なぜ取り出し中まで進んでくれるのに止まるのでしょうか。




### 発生している問題・エラーメッセージ

```
実行時エラー'1004'
SQL構文エラー
```

### 該当のソースコード

```ここに言語名を入力
Sub Access_工数()
'
Dim Sql As String

        Sql = "select b.INDNO"
        Sql = Sql & "from テーブルA a"
        Sql = Sql & "left join テーブルB b on b.LISTNO = a.LISTNO"
        Sql = Sql & "where b.INDNO like '%IN230300000%'"
    
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=データベース名;UID=ユーザー名;pwd=パスワード;SERVER=サーバー名;", Destination:=Range("$A$1")). _
        QueryTable
        
        .CommandText = Sql
        
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "テーブル_***_からのクエリ1"
        .Refresh BackgroundQuery:=False
    End With

End Sub
```

### 試したこと





VBA実行時エラー'1004':SQL構文エラーの修正方法

### 実現したいこと

ここに実現したいことを箇条書きで書いてください。
- [ ] ドラゴンクエストXでの裁縫職人のミニゲームにおいて、状態を入力すると「現時点での最善手」が出る様にしたい。

### 前提

今までExcelなどで手順をまとめており、すべてではありませんが殆どの手順を書き記してExcelのセルに現在の数字を入力すると「今ここに〇〇をすると62%の確率で規定数値に収まる」様なデータ取りを行っておりました。

Ruby等は過去に学習したのですが、その際はブラウザゲーの作成に多少かじった程度で、他の言語についてあまり詳しくありません。

イメージとしてはチェスなどの詰将棋の計算の部分をアナログから言語を使ってステップアップしようと考えております。


### 発生している問題・エラーメッセージ

・様々なサイトを閲覧してみましたが、内容的にはPythonが最も適しているかと推測してはいますが、C++などの方が適しているのでしょうか？

現在、多くの情報をひとつのExcelファイルに入れてしまっているため、そのファイルを開く・マクロを起動するだけでもかなり動作が重くなり辟易しております…。

最終的には、ソフトウェアとしてコンパイルしたいと考えておりますが、何分無知な故、上記の内容に適した言語・もしくはオススメの書籍等御教示頂けないでしょうか？

宜しくお願いします。

### 該当のソースコード

```ここに言語名を入力
ソースコード
```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


とあるオンラインゲームにおいて、今アナログで行っている事をプログラミング言語を使用して分かりやすくしたい。

社内Webサイトを作成しようとしています。
HTMLや関連のツール類を使用するのは初めてです。

Webサイトの1つのページに対してフォーマットがあり、
その中にある項目の内容を
入力フォームに入力し、Webサイト上へ反映させるためには
なにをどのように使用したら良いのでしょうか？（例：ExcelのVBAを使用して○○○をし、HTMLへ取り込む）
当方、HTMLのつくり方やコードも初心者の内容を勉強段階です。

画像のようなイメージのことをしたいです。
NO.1・NO.2・NO.3・・・・と同フォーマットのページを複製する予定です。


質問の仕方があっているのかわかりませんが、
ご教授お願いいたします。



![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-05-23/0278843b-40b5-4ce0-8fa9-c342e54b78cc.jpeg)


超初心者です　入力フォームからテキスト内容をWEBページへ反映させたい

### 実現したいこと
・VBAで子フォルダ内pdfファイル名を格納先親フォルダ名をキーにして、Accessクエリから情報取得しファイル名を変更するツールを作成したいです。

●処理イメージ図
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/e9771b22-c9c5-4c2e-a87b-0465063eeafd.png)
●処理前
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/1dc17899-103b-4bda-8cf6-5a9300e44a75.png)

●処理後
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/a0596d0a-e3af-49e5-886d-07da979fdcff.png)

●フォルダ構成
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/f99f334b-d0c8-4151-92c3-ee54a1acf48a.png)
●ツール一覧フォルダ構成
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/9d1730dd-bff3-42a7-bb27-c879e3e57225.png)


### 前提
**＜Accessとの連携＞**
共通キー：親フォルダ名＝社外購買番号
共通キー（社外購買番号）からファイル名変更の情報を取得し、pdfファイル名を変更
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-04-24/ec06b214-8eeb-445a-a325-4fdb87645e92.png)

**＜条件＞**
**※処理イメージ図参照**
**パターン1**
①sample1.pdf⇒②202301-00010_A0001_株式会社山田.pdf⇒③202301-00010_A0001_株式会社山田_00.pdf
①sample1-1.pdf⇒②202301-00010_A0001_株式会社山田.pdf⇒③202301-00010_A0001_株式会社山田_01.pdf
**詳細**
①⇒②：Accessクエリ
②⇒③：ファイル名語尾をファイル数分カウント表示

**パターン2**
①202302-00010_B0001_株式会社田中_00.pdf
①sample2.pdf⇒②202302-00010_B0001_株式会社田中.pdf⇒③202302-00010_B0001_株式会社田中_01.pdf
**詳細**
パターン1の条件に追加して、ファイル名に親フォルダ名（例.B0001）が無いファイルの場合、①⇒②⇒③：Accessクエリ、ファイル名語尾をファイル数分カウント表示

**パター3**
①sample3.pdf⇒②C0001_株式会社小川.pdf⇒③C0001_株式会社小川_00.pdf

**共通**
パターンにある通り、ファイル名の語尾をファイル数に応じてカウント名にしたい。
例.2ファイルの場合、_00.pdf、_01.pdf

### 発生している問題・エラーメッセージ

1.Accessのクエリから取得した情報とフォルダ名を照合し、ファイル名変更のやり方が全く分かりませんでした。
2.1の後から、条件にそって、ファイル名を変更する方法が全く分かりませんでした。


### 該当のソースコード

```VBA
Sub ファイル名変更()
Const TargetFld As String = "C:\Users\○○○\Desktop\一時\テスト環境" 'フォルダ作成上位場所
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")

Dim objfld As Object
Dim strFolderPath As String

For Each objfld In Object.GetFolder(Target.Path & "\完了").SubFolders




Next


Call Access情報取得



End Sub

Sub Access情報取得()
    
    Dim DBpath As String 'Accessファイルのフルパス
    Dim adoCn As Object 'Accessへの接続用オブジェクト
    Dim adoRs As Object 'Accessからの取得用オブジェクト
    Dim strSQL As String 'SQL文
    Dim myArray As Variant '全レコードを格納する配列
    Dim tmpFldCnt As Variant 'フィール数
    Dim tmpRcdCnt As Variant 'レコード数
        
    'Accessへ接続する
    Set adoCn = CreateObject("ADODB.Connection") '接続用オブジェクト作成
    DBpath = "C:\Users\z09071\Desktop\一時\Access情報からファイル名変更" & "\Database.accdb" '接続するファイルのフルパス
    adoCn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & ";"  'Accessファイル（2007～）を開く
    
    'オブジェクトの設定（取得用）
    Set adoRs = CreateObject("ADODB.Recordset")
    adoRs.CursorLocation = 3 ' クライアントサイドカーソルに変更
    
    'SQL文（全レコード取得）
    strSQL = "SELECT 社外購買番号,ファイル名変更 FROM Q_STEP1"
    
    'SQL文の実行（読込の場合）
    adoRs.Open strSQL, adoCn 'SQLを実行して取得したデータをadoRsへ格納する
    
    tmpFldCnt = adoRs.Fields.Count 'フィールド数を取得
    tmpRcdCnt = adoRs.RecordCount 'レコード数を取得
    
    'レコード数がゼロじゃない場合
    If tmpRcdCnt > 0 Then
        
        '全レコードを配列に格納
        myArray = adoRs.GetRows
      
    End If
    
    '後処理
    adoCn.Close 'Accessへの接続解除
    Set adoRs = Nothing '取得用オブジェクトの解放
    Set adoCn = Nothing '接続用オブジェクトの解放

End Sub

```

### 試したこと

・Accessのクエリ情報をを変数に入れる事は出来たのですが、各ファイルに対してのファイル名変更ができませんでした。
・コードも中途半端になっていますが、ご協力よろしくお願いします。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


Accessデータ連携のVBAによるファイル名変更

### 実現したいこと

他のマクロを呼び出しているだけのマクロを開発タブ＞マクロから選択して実行できるようにしたい。

### 発生している問題・エラーメッセージ

他のモジュールにあるマクロを呼び出すマクロが実行できないのですが、それはなぜですか？
どうすれば解決できますか？

例えば
Module1にhogehoge1()というマクロを作成したとします。
これをModule2に

```vb
Sub hogehoge2()
Module1.hogehoge
End Sub
```

として、Module2からModule1にあるhogehoge1を呼び出すマクロhogehoge2を作成しました。

これを開発＞マクロから呼び出そうとしても、hogehoge2を選択しようとすると、実行ボタンが灰色になっていて選択できません。

### 補足情報（FW/ツールのバージョンなど）

Excel2019
Windows

他のマクロを呼び出しているだけのマクロを開発タブ＞マクロから選択して実行できるようにしたい。

### やりたいこと
ExcelやCSVの表形式のデータをJsonファイルに出力するにはどのようにしたらいいでしょうか？
Pandasを使ってやってみたりしましたが、そもそもどこからやっていいかわからず質問させていただきました。

### 追記
階層1の中に階層2、階層3を入れていきたいのと、
階層の深さによらず、最下層と所有者を辞書形式にしたいです。

### 操作前データ
|階層1|階層2|階層3|所有者|
|:----|:----|:----|:----|
|果物|赤|りんご|A|
|果物|赤|いちご|A|
|果物|黄色|ばなな|B|
|果物|黄色|れもん|C|
|野菜|赤|にんじん|C|
|野菜|赤|とまと|A|
|野菜|緑|きゅうり|B|
|野菜|緑|せろり|A|
|その他|赤| |B|
|その他|黄色| |A|


### 期待するoutput

```JSON
{
	"果物": {
		"赤": [
			{
				"りんご": "Ａ",
				"いちご": "Ａ"
			}
		],
		"黄色": [
			{
				"ばなな": "Ｂ",
				"れもん": "Ｃ"
			}
		]
	},
	"野菜": {
		"赤": [
			{
				"にんじん": "Ｃ",
				"とまと": "Ａ"
			}
		],
		"緑": [
			{
				"きゅうり": "Ｂ",
				"せろり": "Ａ"
			}
		]
	},
	"その他": {
		"赤": "Ｂ.",
		"黄色": "Ａ"
	}
}
```



### やってみたこと
以下のコードを実行してみましたが、その他の最終階層に所有者の値が入りません。

```Python
import pandas as pd
import json

# Read the Excel file
df = pd.read_excel('sample.xlsx')

# Create a dictionary to hold the data
data = {}

# Iterate over the rows of the DataFrame
for index, row in df.iterrows():
    # Create a reference to the dictionary for the current row
    current_dict = data
    
    # Iterate over the values in the row
    for i, value in enumerate(row[:-1]):
        # If the value is not empty, use it as a key in the dictionary
        if not pd.isna(value):
            # If the key does not exist in the dictionary, create it
            if value not in current_dict:
                # If this is the last column, the value is the owner
                if i == len(row)-2:
                    current_dict[value] = row[-1]
                # Otherwise, create a new dictionary
                else:
                    current_dict[value] = {}
            # Update the reference to the dictionary for the current row
            current_dict = current_dict[value]
    
# Convert the dictionary to JSON and write it to a file
with open('example.json', 'w') as f:
    json.dump(data, f, ensure_ascii=False, indent=4)
```
### 出力結果(example.json)
```Json
{
    "果物": {
        "赤": {
            "りんご": "A",
            "いちご": "A"
        },
        "黄色": {
            "ばなな": "B",
            "れもん": "C"
        }
    },
    "野菜": {
        "赤": {
            "にんじん": "C",
            "とまと": "A"
        },
        "緑": {
            "きゅうり": "B",
            "せろり": "A"
        }
    },
    "その他": {
        "赤": {},
        "黄色": {}
    }
}
```
