常連

注目の的

質問力

回答者

ベストアンサー

情報収集家

自己紹介

### 実現したいこと
どうしても、ユーザーが入力したテキストファイルに記述してある式を実行する必要があります。
eVal()関数で実行はできたのですが、同じ式を10000回繰り返す必要があり
もともとのPythonプログラムに記述した場合と比べて、かなり遅い結果となることがわかりました。

プログラム実行中にテキストファイルに記述する式が変化するのであれば
eVal()で文字列を都度、式に評価する以上、遅くなるのは仕方ないと思いますが
プログラム起動時のみテキストファイルに記述している文字列を1度だけ読み込むので
高速化できるのであればしたいと考えています。

### 発生している問題・分からないこと
高速化する方法がわからない



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

```Python
import math
import time


def read_expressions(filename):
    try:
        with open(filename, 'r') as file:
            return [line.strip() for line in file if line.strip()]
    except FileNotFoundError:
        print(f"ファイル '{filename}' が見つかりません。")
        return []
    except Exception as e:
        print(f"ファイル読み込み中にエラーが発生しました: {str(e)}")
        return []


def evaluate_expression(expression, variables):
    # 文字列をeVal関数で評価して実行する
    # セキュリティのため四則演算と三角関数、ルート、pi、e、最大、最小、絶対値以外の関数は使わせない
    # main関数で定義している変数は使用OK
    safe_dict = {
        'abs': abs, 'max': max, 'min': min,
        'sin': math.sin, 'cos': math.cos, 'tan': math.tan,
        'sqrt': math.sqrt,
        'pi': math.pi, 'e': math.e
    }
    safe_dict.update(variables)

    try:
        result = eval(expression, {"__builtins__": None}, safe_dict)
        return result
    except Exception as e:
        return f"エラー: {str(e)}"


def main():

    # ユーザーがテキストファイルに書いた式（文字列）をロードする
    filename = "expressions.txt"
    expressions = read_expressions(filename)

    kakudo_Value = 30
    Force_Value = 10.55

    variables = {
        'kakudo_Value': kakudo_Value,
        'Force_Value': Force_Value
    }

    for expression in expressions:

        # ユーザーが設定したテキストファイルの式を10000回繰り返す
        start_time = time.time()
        for i in range(10000):
            result = evaluate_expression(expression, variables)
        print(time.time() - start_time)
        print(f"式: {expression}")
        print(f"結果: {result}")

        # 【比較用】ユーザーが設定したテキストファイルの式と同じ式を10000回繰り返す
        start_time = time.time()
        for i in range(10000):
            kekka = math.sin(kakudo_Value * math.pi / 180) * Force_Value
        print(time.time() - start_time)
        print(f"結果: {kekka}")


if __name__ == "__main__":
    main()

```

```テキストファイル
sin(kakudo_Value * pi / 180) * Force_Value
```

```
特になし
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
functools.cacheを使えばいいかもと思いましたが、ソースコード上では定数として設定している変数のkakudo_ValueとForce_Valueは、実際には変化しますので、あまり高速化できないのでは無いかと考えました。

### 補足
特になし

1度のみeVal()を使う場合での処理高速化

### 実現したいこと
正常に実行に必要なデータを生成できるインストーラーを作成したい。

### 前提
C#勉強中です。
現在visualstudioを使用してWindowsフォームでいくつかアプリを作っています。
ずっと以前作ったものの改良をしており今回とても久しぶりに新しいプロジェクトを作成してみましたが
以前と同じように以下を参照してインストーラーを作成してみた所、インストーラーのビルド自体は成功した（失敗0だった）のですが、作成したインストーラーを実行したところ、インストール先のフォルダを確認しても「プロジェクト名.dll」と「プロジェクト名.runtimeconfig.json」が一つずつとパッケージングした音声ファイル等のみが生成されており、exeやその他NuGetのデータ等が生成されておりませんでした。なので生成したプライマリ出力のショートカットを開こうとしてもdllを開こうとします。

また、確認したところインストーラーのビルド後のFils Systemのプライマリ出力の項目に赤波線が引かれていました。

こちら色々と調べてインストーラーを削除後再度作成したり、setupwizardのほうを試してみたりしましたが解決しませんでした。
こちら何か解決方法はないでしょうか？

▼インストーラー作成に参照したサイト
https://www.osadasoft.com/visual-studio-2022%E3%81%A7%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%A9%E4%BD%9C%E6%88%90/

### 発生している問題・エラーメッセージ
ビルド後のこちらはエラーメッセージなのでしょうか

```
WARNING: Including primary output of project 'プロジェクト名.csproj' with target framework '.NETCoreApp v8.0' may result in incomplete content. See here: https://go.microsoft.com/fwlink/?linkid=2112157
```

### 試したこと
・インストーラーの再インストール
・setupwizard
・プライマリ出力を削除後サイト追加

### 補足情報（FW/ツールのバージョンなど）
C#
visualstudio（最新Ver）
Windowsフォーム
▼よくわかっていませんが関係ありそうな情報
ターゲートフレームワーク：.NET8.0
ターゲットOSバージョン：8.0

この辺はよく理解していないため、プロジェクト作成時はとにかく最新のものにしてますが、ちゃんと状況に応じて使い分けないとこういうことが起こりうるのでしょうか。

C# Windowsフォームのインストーラーを作成したが、ビルド後インストールしてもexeが生成されておらず実行できない

### 実現したいこと
pd.read_csvで正確な値を読み込みたい。

以下リンクのフォルダ(Result_1.csv～Result_1001.csv)をダウンロード後、以下のコードでdir_pathとして、フォルダのパスを指定した際に、csvの値とpythonのprint(df_1)で表示した値が異なる問題を解決したい。

例えば、
Result_4.csv1行目のDepth(m)の値　
python上→2.27493、csv上→2.225372443
Result_1001.csv1行目のDepth(m)の値　
python上→2.27592、csv上→2.273955636


### 発生している問題・分からないこと
読み込むcsvが入ったフォルダのダウンロードリンク　(googleドライブ共有フォルダ)
https://drive.google.com/drive/folders/1N8QzH2CkpOYeCAmNjgz_OwGO2NInA0gX?usp=sharing

### エラーメッセージ
```error
エラーメッセージは無い。
```

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

```python
import os
import glob
import pandas as pd
import numpy as np
from natsort import natsorted

dir_path = r""
file_list = glob.glob(os.path.join(dir_path, "*.csv"))

for file_path in file_list:
    df_1=pd.read_csv(file_path,skiprows=2)

    print(df_1)

df_1

```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [ ] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [x] その他

##### 上記の詳細・結果
試したこと
1.encodingの指定
df = pd.read_csv('file.csv', encoding='shift-jis')

*その他、utf-8,cp932も

2. float_precision
df = pd.read_csv('file.csv', float_precision='high')


### 補足
プログラミング初心者です。ご回答いただけたら幸いです。よろしくお願いします。

実行環境
・Windows 10 pro
・22H2
・Jupyter notebook
・anaconda   conda 24.1.2
・Python 3.11.7
・np.__version__1.26.4
・pd.__version__2.1.4

python　 pd.read_csvでcsvと異なる値を読み込む

### 実現したいこと
ボタン作成し、それをクリックして、実行ファイル起動する。
この実行ファイルの起動の上限数は1つまでとします。

再度ボタンが押されると先に出ていたものが閉じて終了する。
終了後に、実行ファイルの起動するような処理を行いたいです。

### 発生している問題・分からないこと
・1回目押下で、起動します。2回目の押下でも起動し、三回目から2回目に起動したものが削除されます。
2回目で削除されるようにしたいのですがうまくいきません。
※現状は削除ではなく、新たな起動しないようにし、メッセージを出力しています。

・異なるexe間でボタンを押しても、それぞれで上記の同じ動作をしています。
異なるexe間での起動と削除のプロセスを一つにまとめたいです。

・Processの探し方についてもよい方法がわからないです。
これについては、方法や探すもとになる値を列挙いただけるとありがたいです。



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

```C#
//以下のボタン押下後の共通コードです。
 public class MutexHelper
 {
     private static Mutex mutex = new Mutex(false, "Global\\MyUniqueHelpFileMutex");
     private static bool isHelpFileRunning = false;

     public static async Task OpenHelpFileAsync()
     {
         await Task.Run(() => OpenHelpFile());
     }

     private static void OpenHelpFile()
     {
         bool hasHandle = false;
         Process process = null;
         try
         {
             try
             {
                 hasHandle = mutex.WaitOne(TimeSpan.Zero, false);
             }
             catch (AbandonedMutexException)
             {
                 hasHandle = true;
             }

             if (!hasHandle)
             {
                 Console.WriteLine("ヘルプファイルはすでに開かれています。");
                 return;
             }

             // "notepad.exe" が既に起動しているかどうかをチェック
             if (!isHelpFileRunning)
             {
                 isHelpFileRunning = true;
                 process = Process.Start("notepad.exe");
             }
             else
             {
                 Console.WriteLine("ヘルプファイルはすでに開かれています。");
             }
         }
         finally
         {
             if (hasHandle)
             {
                 mutex.ReleaseMutex();
             }
         }

         // プロセスの終了を待機
         if (process != null)
         {
             process.WaitForExit();
             isHelpFileRunning = false;
         }
     }

 }

//フォーム側では以下のように呼び出しています。
private async void button1_Click(object sender, EventArgs e)
{

    await MutexHelper.OpenHelpFileAsync();
}
```

### 試したこと・調べたこと
- [x] teratailやGoogle等で検索した
- [x] ソースコードを自分なりに変更した
- [ ] 知人に聞いた
- [ ] その他

##### 上記の詳細・結果
実現にはMutexと非同期処理が現実的だとことでそれらを使って進めてます。
現状のコードはChartGPTを大本に細かい部分(分岐方法など)を自分なりに変更しました。

### 補足
ご指摘いただけるとありがたいです。

異なるexe間で実行ファイルを排他的制御したい

### 実現したいこと
VBAからBox Driveの機能である「フォルダーの更新」を実行したい。

### 前提
VBAの業務アプリで特定のフォルダー内の共有ファイルを自動処理しています。
ファイルが誰かに更新されると、そのファイルを開き内容をチェック、編集して保存します。
従来は、LAN上の共有フォルダーのファイルを問題なく処理していました。このたび、新たにBox上の共有ファイルも処理することになりました。幸いBox DriveをPCにインストールすることにより同様に処理できるのですが、次の問題に直面しました。



### 発生している問題・エラーメッセージ
PC上のBoxフォルダーの共有ファイルは、クラウド上のファイルが更新されても、必ずしも最新の状態になりません。そのため確実に処理するには、Boxフォルダー上のファイルをVBAアプリで読み込む前に、手作業でエクスプローラーから対象のフォルダー（またはファイル）を選択し、右クリックメニューから「フォルダーの更新」（または、「ファイルの更新」）を実行する必要があります。

VBAアプリ内でファイルを開く前にVBAでBoxの「フォルダーの更新」機能を実行したいのですが、可能でしょうか。

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

VBA


### 試したこと

Box Support(https://support.box.com/hc/en-us/community/topics)などでも検索したのですが該当する情報は見つかりませんでした。

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

Box Drive 2.37.142
MicroSoft 365


VBAでBox Driveの「フォルダーの更新」を実行したい。

### 実現したいこと

リンク付きテーブルの報告No.をkeyとして、テーブルから編集フォームに飛んだ際に、編集フォームの入力ボックスにkeyに対応するスプレッドシートの値が反映されるようにしたいです。
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/be8ae14d-7779-40bc-ba7b-effaff7a3000.png)
↓
↓
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/2c231fd7-40d5-494f-ac95-e3f19f51cf80.png)
### 前提

gasで営業報告webアプリを作っています。
新規フォームからスプレッドシートに情報を保存し、webアプリ上にスプレッドシートの情報をテーブルとして表示させるというものです。
また、テーブルをクリックすることで編集フォームを表示させ、情報の更新も行えるというものです。
（今回実現させたい処理に新規フォームは関係ないので省略してます）

今回は、編集フォームにスプレッドシートの特定のデータを表示させる処理がうまくいかず、スプレッドシートの0001のデータが反映されてしまいます。
keyに対応したデータを取得反映させるためにはどうしたらいいのでしょうか？
何か方法がありましたらお教え頂けると幸いです。
よろしくお願い致します。

＜追記＞
初心者のためネット上のコードを参考にしている部分が多々あります。
また、説明が難しかったので、うまく説明できておらず分かりにくい部分も多くあると思いますがご容赦下さい。

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

```
テーブルの2行目を押してもスプレッドシートの0001の行のデータを取得されてしまします。
```
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/8d8bc5e7-9c97-4a04-8af2-58bb54012a07.png)
↓
↓
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/f862843b-4d2a-4902-92b4-b5ba979e874a.png)
↓
↓
![![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/df94f505-1385-4f9a-90cb-1118a226e717.png)](https://ddjkaamml8q8x.cloudfront.net/questions/2024-01-09/d262edf8-44a9-48b1-8c0f-3cc0cfaba973.png)

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

```index.html
<!DOCTYPE html>
<html>
  <head>
    <base target="_top">
    <title>サンプルページ</title>
  </head>
  <body>
    <div>
      
      <main>
        <table>
          <tr>
            <th>報告No.</th>
            <th>日付</th>
            <th>企業名</th>
            <th>営業内容</th>
            <div>
              <?!= getreportData(); ?>
            </div>
          </tr>
        </table>
      </main>
    </div>
  </body>
</html>
```
```form.edit.html
<!DOCTYPE html>
<html>
  <head>
    <base target="_top">
    <title>サンプルページ</title>
    <script>
      // ページロード時に報告No.に基づいてデータを取得して入力ボックスに設定する関数
      function loadFormData() {
        var currentUrl = document.URL;
        var urlParams = new URLSearchParams(currentUrl);//アドレスバーのURL取得
        var reportNo = urlParams.get('reportNo');// URLから報告No.取得
        console.log(currentUrl);

        google.script.run.withSuccessHandler(setFormData).getDataForEdit(reportNo);
      }

      // 取得したデータを入力ボックスに設定する関数
      function setFormData(data) {
        document.getElementById('report_no').value = data[0];
        document.getElementById('date').value = data[1];
        document.getElementById('company').value = data[2];
        document.getElementById('contents').value = data[3];
      }

      // ページロード時にloadFormData関数を呼び出す
      window.onload = loadFormData;
    </script>

  </head>
  <body>
    <div>
      
      <main>
        <div>
          <form id="form" method="POST" action="<?= deployURL ?>">
            <h2>＜営業部入力＞</h2>
            <div>
              <table>
                <tr>
                  <th>報告No</th>
                  <td><input type="text" id="report_no" placeholder="No."></td>

                  <th>日付</th>
                  <td><input type="text" id="date"></td>

                  <th>企業名</th>
                  <td><input type="text" id="company"></td>

                  <th>営業内容</th>
                  <td><input type="text" id="contents" ></td>
                </tr>
              </table>
            </div>
          </form>
          
          <input class="submit" type="button" value="更新" onclick="submitForm()">
          <a href="<?= getAppUrl() ?>?p=index">キャンセル</a>
        </div>
      </main>
    </div>
  </body>
</html>
```
```gas
// WebアプリのHTML
const doGet = (e) =>{
  const page = (e.parameter.p || "index");
  const template = htmlOutput = HtmlService.createTemplateFromFile(page);
  template.deployURL = ScriptApp.getService().getUrl();
  return template
    .evaluate()
    .setTitle('営業報告')
    .addMetaTag('viewport','whidth=device-width,initial-scale=1');
};

function getAppUrl(){
  return ScriptApp.getService().getUrl();
}

// 報告データの取得＆表示
function getreportData() {
  var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('営業報告');
  var data = sheet.getRange('A2:K').getValues();

  // HTML ページの生成
  var htmlOutput = HtmlService.createHtmlOutput();

  // テーブルデータ
  for (var row = 0; row < data.length; row++) {
    // データが空でない場合のみテーブルに追加
    if (data[row][0] !== "") {
      htmlOutput.append('<tr>');
      for (var col = 0; col < data[row].length; col++) {
        var reportNo = data[row][0]; // 受付No.を取得
        Logger.log(reportNo);
        htmlOutput.append('<td><a href="' + getAppUrl() + '?p=form.edit&reportNo=' + reportNo + '">' + data[row][col] + '</a></td>');
      }
      htmlOutput.append('</tr>');
    }
  }
  // HTML ページの表示
  return htmlOutput.getContent();
}

// データ取得用関数
function getDataForEdit(reportNo) {
  var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName('営業報告');
  var data = sheet.getRange('A2:D').getValues();

  // 報告No.に対応する行を検索
  for (var row = 0; row < data.length; row++) {
    // データが空でない場合のみテーブルに追加
    if (data[row][0] !== "") {
      for (var col = 0; col < data[row].length; col++) {
        var reportNo = data[row][0]; // 報告No.を取得
        Logger.log(reportNo);
      }
      Logger.log(data[row]);
      return data[row];
    }
  }

  // 該当データが見つからなかった場合は空の配列を返す
  return [];
}
```

### 試したこと

URLの取得がうまくいかなかったので以下のように変更したりもしました。
```form.edit.html
function loadFormData() {
        var currentUrl = window.location.href;//ここを変更
        var urlParams = new URLSearchParams(currentUrl);
        var reportNo = urlParams.get('reportNo');
        console.log(currentUrl);

        google.script.run.withSuccessHandler(setFormData).getDataForEdit(reportNo);
      }
```


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

keyの取得はURLの末尾からしています。

テーブルの各行1列目をkeyとして、対応するスプレッドシートのデータを編集フォームに反映させたい。

### 実現したいこと
StreamWriterでデータをCSVに書き込めるようにしたい

### 環境
Windows10 Pro（バージョン　21H2）

Microsoft Visual Studio Community 2022 (64 ビット) - Current
Version 17.6.2

WinFormsにて作成しています。
.net7.0

### 試したこと
昨日まで動いていたが、今日になって動かなくなった

3日前にZIPで送ったコードが残っていたので解凍してそのコードを実行しても動かない

昨日寝る前にVisual Studioのアップデートを行って寝ました。


下記のコードは、メインのコードからCSV部分だけを抜き出してテストで再構築したコードです。

そこで解った事は、54行目のTask.Delay(1000).Wait();を消すと一気にデータが書き込まれてデータは正常に書き込まれるが
Task.Delay(1000).Wait();を追加すると見た目は動いているが実際はヘッダー行すらデータが書き込まれない状況です。

そもそも、私のコードが悪くてタマタマ動いていたのか？アップデートの影響で動かなくなったのか？教えていただきたいです。

### 知りたいこと

アップデートの影響ならば、ダウングレードの方法が知りたいです。

codeが悪いのであれば、指摘よろしくお願いします。


### code
```C#
//プログラム実行
Task t1 = Task.Run(() => { main_system(label1, textBox1, progressBar1, ref Flags.Cancel_Flag1, ref Flags.End_Flag1); });

//実行部分
private void main_system2(Control label, Control textbox, ProgressBar progressBar, ref bool Cancel_Flag, ref bool End_Flag)
        {
            if (textbox.Text == "")
            {
                MessageBox.Show("CSVファイルを選択してください。");
            }
            else
            {
                string inputFile = textbox.Text;
                string file_name = Path.GetFileName(inputFile);
                DateTime dt = DateTime.Now;
                String Output_File_Name = dt.ToString($"{dt:完了_HH-mm-ss_}") + file_name;
                string main_folder = System.IO.Directory.GetCurrentDirectory();
                string outputFile = main_folder + "\\" + Output_File_Name;

                // Shift JISで書き込むためのエンコーディングを取得
                Encoding.RegisterProvider(CodePagesEncodingProvider.Instance);
                Encoding enc = Encoding.GetEncoding("sjis");

                // CSVファイルを読み込む
                string[] lines = System.IO.File.ReadAllLines(inputFile, enc);


                // ヘッダー行を取得
                string headerLine = lines[0];
                int max_line = lines.Length - 1;

                //別スレッドからコントロールを操作する場合はInvokeを使う
                this.Invoke(new Action(() =>
                {
                    //プログレスバー初期化
                    progressBar.Minimum = 0;
                    progressBar.Maximum = max_line;
                    progressBar.Value = 0;
                }));




                // 書き込み用のファイルを作成
                using (StreamWriter writer = new StreamWriter(outputFile, false, enc))
                {
                    
                    // ヘッダー行を追加
                    writer.WriteLine(headerLine + ",判定結果");
                    // データ行を書き込む
                    for (int i = 1; i < max_line + 1; i++)
                    {

                        Task.Delay(1000).Wait(); //sleep 
                        //別スレッドからコントロールを操作する場合はInvokeを使う
                        this.Invoke(new Action(() =>
                        {
                            //ステータス更新
                            label.Text = String.Format("{0}/{1}件", i.ToString(), max_line.ToString());
                            progressBar.Value = i;
                        }));

                        // カンマで区切られたデータを分割
                        string[] values = lines[i].Split(',');
                        string hantei = i.ToString();
                        try
                        {
                            this.Invoke(new Action(() =>
                            {
                                label.Text = "CSV書き込み中";
                            }));
                            writer.WriteLine(string.Join(",", values) + "," + hantei);

                        }
                        catch
                        {
                            MessageBox.Show("CSVファイルが開かれています、閉じてください。");
                            writer.WriteLine(string.Join(",", values) + "," + hantei);
                        }
                        
                    }
                }
            }
        }
```



C#　StreamWriterで動作はするがファイルに情報が書き込まれない

### 実現したいこと

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

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

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

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

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

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

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

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

Excel2019
Windows

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

NET5のサポートが終了しましたが、これは.NET5での開発もリスク上してはいけないということでしょうか？

現在、社内SE兼任として社内で使用する業務アプリの開発・更新を行っております
規約通り無料のVisualStudioとC#で作成しています　今は2019で実行しております
過去のシステムではNET　Frameworkで作成したものもありますが、これも一律、NET6 　NET7でのリプログラミングが必要でしょうか？

ネットで調べてもサポート終了であって、これといった情報や使ってはいけないとか書いていないのですが
もしかしたらあまりにも常識的な知識の為、調べてもでてこないのでしょうか？





.Net5での開発に関して

お世話になっております
VB.NETでEXCEL操作を行っているのですが、処理の最後でコンポーネントを開放しているのにも関わらず、タスクマネージャー上にEXCELのプロセスが残ってしまいます
（ただしこのプロセスはアプリケーションを終了させると何故か消えます）
EXCELのバージョン等で動かない場合があるので今回オブジェクトはCreateObject("Excel.Application")にて作成しております
開放の仕方が悪いのでしょうか？
ご教示ください

当方で使用しているEXCELは2019です

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

```VB.NET
        Dim objXLApp As Object
        Dim objXLBook As Object
        Dim objXLSheet As Object

        objXLApp = CreateObject("Excel.Application")

        objXLApp.ScreenUpdating = False '画面を更新しないようにします
        objXLApp.DisplayAlerts = False 'ユーザーに入力を促すメッセージや警告メッセージを表示させない
        objXLApp.EnableEvents = False 'マクロ無効化

        objXLBook = objXLApp.Workbooks.Open("C:\TEST.xlsx")
		
        objXLBook.Worksheets(1).Activate()
        objXLSheet = objXLBook.ActiveSheet
		
		'値書き込み
        objXLSheet.Range("C3") = "テスト"

        '保存
        objXLBook.SaveAs("C:\TEST2.xlsx")

        objXLApp.EnableEvents = True
        objXLApp.DisplayAlerts = True
        objXLApp.ScreenUpdating = True

        objXLBook.Saved = True

        ' Microsoft Excel およびスプレッドシートへの参照を解放します。
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLSheet)
        objXLSheet = Nothing
        objXLBook.Close()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLBook)
        objXLBook = Nothing
        objXLApp.Application.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(objXLApp)
        objXLApp = Nothing
```

### 試したこと
ただオブジェクトをNothingにするだけではなくSystem.Runtime.InteropServices.Marshal.ReleaseComObjectで開放した



【VB.NET】【EXCEL】VB.NETでEXCELを操作した後オブジェクトを処理してもプロセスが残ってしまう

### 実現したいこと

参考：https://teratail.com/questions/303318

上記を参考に
sheet1　E列の注文番号とsheet2　A列の注文番号が一致している場合
かつ
sheet1　Q列の日付とsheet2　E列の日付が一致している場合
に、sheet1　E列の注文番号の背景を赤色にしたいです。

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

```VBA
Sub 日付が一致しているかチェック(ByVal clear_flag As Boolean)
    Dim x As Long
    Dim i As Long
    With Sheets("Sheet1")
        x = .UsedRange.Cells(.UsedRange.count).Row
        If clear_flag = True Then
            .Range("Q2:Q" & x).Interior.Pattern = xlNone
        End If
        For i = x To 2 Step -1
            If Sheets("Sheet2").Range("E:E").Find(What:=.Cells(i, 17), LookAt:=xlWhole) Then
                .Cells(i, 5).Interior.Color = RGB(255, 0, 0) 
            End If
        Next i
    End With
End Sub
```

### 困っていること

日付はAs Dataを使用するかと思いますが、修正する箇所が分からず困っておりますので、ご教授いただけますと幸いです。


IFを使用した日付の比較（データ型の設定）とその処理

以下は可能でしょうか。
よろしくお願い致します。

### 前提
・windows10pro
・標準ユーザー（社内ドメイン参加）

### 実現したいこと
・vbsファイルを管理者権限で実行したい。
（管理者権限のあるローカルユーザー名・pwを手入力することは可能です）

### 発生している問題・エラーメッセージ
・exeと違って、vbsを右クリックしても「管理者として実行」が表示されない。

### 補足
当該標準ユーザーで実行しないといけない状況です。

vbsを管理者として実行したい

htmlじょうでVBScriptを動かせないでしょうか？

1.html内で2.vbsを実行する方法はないでしょうか

vbs実行？する方法

### **■前提・実現したいこと**
ExcelVBAからC#で作成したDLLのメソッドに配列を渡したいです。

### **■発生している問題・エラーメッセージ**
ExcelVBAを実行すると以下のメッセージが出ます。（以下VBAコードの★の行）
> コンパイルエラー
> 関数またはインターフェースが予約されているか、またはVisual Basicでサポートされていないオートメーションタイプが関数で使用されています。

### **■該当のソースコード**
```VBA
Sub test()
    Dim obj As MyComLibMain
    Dim ret As String
    Dim arg As MyComLibArg
    
    Dim strArray(2) As String
    
    strArray(0) = "111"
    strArray(1) = "222"
    strArray(2) = "333"
        
    Set arg = New MyComLibArg
    arg.myBool = True
    arg.myInt = 123
    arg.myString = "hoge"
    arg.myStrArray = strArray    ★ここでエラーが起きる

    Set obj = New MyComLibMain
    
    ret = obj.StructArgsFunc(arg)

    MsgBox ret
End Sub
```

```C#
using System;
using System.Runtime.InteropServices;

namespace MyComLib
{
    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IMyComLibMain
    {
        string StructArgsFunc(object obj);
    }

    [ComVisible(true)]
    [InterfaceType(ComInterfaceType.InterfaceIsDual)]
    public interface IMyComLibArg
    {
        int myInt { get; set; }
        string myString { get; set; }
        bool myBool { get; set; }
        string[] myStrArray { get; set; }
    }

    [ClassInterface(ClassInterfaceType.None)]
    public class MyComLibArg : IMyComLibArg
    {
        public int myInt { get; set; }
        public string myString { get; set; }
        public bool myBool { get; set; }
        public string[] myStrArray { get; set; }
    }

    [ClassInterface(ClassInterfaceType.None)]
    public class MyComLibMain : IMyComLibMain
    {
        public string StructArgsFunc(object arg)
        {
            try
            {
                if (arg == null)
                {
                    return "arg is null.";
                }

                if (!(arg is MyComLibArg))
                {
                    return "arg is not MyComLibArg type.";
                }

                var obj = arg as MyComLibArg;

                var primitiveArg = $"obj.myInt={obj.myInt}\nmyString={obj.myString}\nmyBool={obj.myBool}";
                var arrays = "";

                foreach(var s in obj.myStrArray)
                {
                    arrays += s;
                }

                return $"success! ({primitiveArg}, {arrays}";

            }
            catch (Exception ex)
            {
                return ex.Message;
            }
        }
    }
}
```

### **■自分で調べたことや試したこと**
・配列以外の型（int, bool, string）については渡せています。
・Dim strArray(2) As Stringを、「As Variant」や「As Object」に変えてもダメでした。

### **■使っているツールのバージョンなど補足情報**
- 開発環境：VisualStudio2022
- Excel：64bit

<プロジェクトの情報>
・「アセンブリをCOM参照にする」：ON
・対象プラットフォーム：x64
・アセンブリに署名する：あり

<REGASMの情報>
・登録時
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\regasm /tlb /codebase /v MyComLib.dll

どうかよろしくお願いいたします。





ExcelVBAからC# DLLに配列を渡したい

yamlから内容を取り出し、excelに項目ごとに内容を書き込みたいです。

調べたところ、excelから内容を読み取り、yamlを生成する記事はたくさんありましたが、
yamlからexcelを生成する記事は見当たりませんでした。

また実現方法としては、Pythonを使用してyamlを読み込みcsvを生成し、csvからexcelにデータを書き込みむ事は可能であると想定してます。

その他、方法があればご教示いただきたいです。

補足:可能であれば、VBAを利用して目的を達成したいです。

yamlから内容を取り出しexcelに取り組みたい

エクセルVBA初心者です。いままでマクロに全く触れたことがありませんでしたが業務で繰り返し作業を無くすために取り組み始めました。しかし始めて3ヵ月になりますが以下の問題が解決できずに困っております。何卒ご指導いただけないでしょうか。

やりたいこと。
原本シートと雛形シートがあります。原本シートの該当する商品にチェックをしてマクロを実行すると、選択した商品リストが最終シートにコピーされる、というものです。
複製されたリストの最終行C17に商品が記入されていると新たに雛形を最終シートにコピーして商品の登録を続けます。

今、うまく解決できなくて困っていることは以下になります。

1, リスト中のオートシェイプもコピーしたいがうまくコピーできない。

2, 商品No.7と9の時は、セル結合の行を2倍にしたい(4行分の結合にしたい)

3, No.7と9の4行結合がC15～18に来ると,C17での入力が認識されずに雛形がコピーされない。また後続の商品リストに上書きされてしまう。

原本シートをはじめから結合してあるのはオートシェイプも一緒にcopyメソッドでコピーしたいと思ったからです。
ですが時には原本シートで選択しない項目もあるので For文で空白リストの上から空白セルを探して貼り付けしていきますので .copy destinationでうまくできませんでした。
上から順番に詰めて転写したいことと、copy.destinationでオートシェイプも含めて転写することの両立が解決できません。
今はPasteSpecial xlPasteAllでやろうとしていますがこれではやっぱりオートシェイプはコピーできないでしょうか？

どうかご指導をよろしくお願いいたします。

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-05-21/7ce691ba-7ad8-44fd-b35e-a8a0f26d389f.png)

![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-05-21/1d29e1ac-df04-44be-b5fe-a0537694c094.png)

```ここに言語を入力
Sub 商品リスト転記()

Dim cb As CheckBox
Dim St1 As Worksheet
Dim i As Long
Dim j As Long
Dim k As Long

  Set St1 = Sheets("原本")
  i = 3
  j = 4
  
  
'雛形シートをコピーして最終に
        Sheets("雛形").Copy After:=Sheets(Sheets.Count)

'チェックボックスをループ
　　　For Each cb In St1.CheckBoxes
    
        St1.Select

'チェックボックスがオンなら
        If cb.Value = xlOn Then
        
'チェックボックスがオンの商品を、別シートへコピペする
        Range(Cells(i, 2), Cells(j, 20)).Copy
        Sheets(Sheets.Count).Select
        
        For k = 3 To Sheets(Sheets.Count).Range("C1000").End(xlUp).Row + 2 Step 2
        If Sheets(Sheets.Count).Range("C" & k).Value = "" Then
        Range(Cells(k, 2), Cells(k, 20)).PasteSpecial xlPasteAll

’商品N0,7と9の場合、セル結合を4行分に増やす。        
        If k = 15 Or k = 19 Then
        Range(Cells(k, 2), Cells(k, 20)).UnMerge
        Sheets(Sheets.Count).Cells(k, 2).Resize(4, 1).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 3).Resize(4, 5).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 8).Resize(4, 2).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 10).Resize(4, 3).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 13).Resize(4, 1).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 14).Resize(4, 2).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 16).Resize(4, 2).MergeCells = True
        Sheets(Sheets.Count).Cells(k, 18).Resize(4, 3).MergeCells = True
        End If
        
        If Sheets(Sheets.Count).Range("C17") <> "" Then
        Sheets("雛形").Copy After:=Sheets(Sheets.Count)
        End If
        
        End If
        
        Next
        
        St1.Select
                
        End If
        
        i = i + 2
        j = j + 2
        
Next cb

End Sub
```

エクセルVBA オートシェイプのコピペ、セル結合、シート再コピー必要時の認識がうまくできない。

現在、サンプルコードを参考にさせて頂いて、フォルダ内のPDF図面を自動で印刷するというVBAを作っています。

EXCELアクティブシートにA1からA2,A3…と下にファイル名が並んでおり、そのリストの上から1件ずつ順にフォルダ内にファイルがあるかを検索し、ファイルがあれば印刷してエクセルにあるファイル名を赤字に変更、ファイルがなければエクセルにあるファイル名に取り消し線を入れる。リストが空白になったらVBA終了という流れです。（その画面のイメージを下に添付致します）

[VBE]-[ツール]-[参照設定]で「Windows Script Host Object Model」にもチェックを入れてshell機能を使えるように設定し、下記コード的にもほぼ完成に近いところまできている状態と思っているのですが、マクロを実行するとリストのファイル名に取り消し線が入るだけで、肝心の印刷が実行されず困っております。

何か不要なコードが邪魔をしているのでしょうか。構文endまで有効にするにはどこを変えれば良いか、もしこれをご覧になってお判りになられる方いらっしゃいましたら、どうか添削やご教示お願い致します！

```ここに言語を入力
Sub ListPrint() '図面印刷VBA
     
    'Shell実行用の変数設定
    Dim wshShellObj As IWshRuntimeLibrary.WshShell 'Shellオブジェクト
    Set wshShellObj = New IWshRuntimeLibrary.WshShell
    Dim strShellCommand As String  'Shellコマンド
    Const folderPath = "C:\Users\Desktop\サンプル"  'フォルダパス（定数)
    Dim printFolderPath As String  'フォルダパス
    Dim printFileName As String  'ファイル名
    Dim printFilePath As String  'ファイルパス
    Dim activePrinter As String '通常使うプリンターを取得
    Dim printerName As String 'プリンタ名
    Dim listname As String '印刷リスト
    Dim listFolder As String '印刷リストフォルダ名
    Dim intPoint1 As Long 'プリンタ名を切り出す為の文字数
    Dim i As Integer '印刷行カウンター
     
    '通常使うプリンターを取得
    activePrinter = Application.activePrinter
    '取得できなかった時の処理
    If activePrinter = "" Then
        MsgBox "プリンター情報が取得できませんでした" & Chr(13) & "プリンターが接続されていることを確認してください"
        End
        Exit Sub
    End If
 
    'ファイル名（" on"の前まで）とポート名("on "の後から最後まで）を切り出す
    intPoint1 = InStr(activePrinter, "on") - 2
 
    'プリンター名を指定
    printerName = Left(activePrinter, intPoint1) 'ポートを除いたプリンタ名
     
    'カウンターをセット A列1行目から
    i = 1 '行
     
    '表紙の最初の図番を取得
    listname = Cells(i, 1).Value
 
    Do While listname <> ""
        'PDFファイルパスを設定
        printFolderPath = folderPath & listFolder & listname   '印刷するPDFフォルダパス
        'PDFファイル名を取得（拡張子などをワイルドカードで検索して変数へ取込む）
        printFileName = Dir(printFolderPath & "*")
         
        'ファイルがあるかを判定
        If printFileName <> "" Then
            'ファイルパスを指定
            printFilePath = folderPath & listFolder & printFileName
            'Shellコマンドを設定
            strShellCommand = "AcroRd32.exe /t " & printFilePath & " " & printerName '設定画面を表示
            'Shellコマンドを実行
            wshShellObj.Run (strShellCommand)
             
            '文字を赤色に変更
            Cells(i, 1).Font.Color = RGB(255, 0, 0)
        Else
            '文字に取り消し線を設定
            Cells(i, 1).Font.Strikethrough = True
        End If
 
        '1行下がる
        i = i + 1
         
        '次のリストを取得
        listname = Cells(i, 1).Value
         
    Loop
     
    'オブジェクトを強制開放
    Set wshShellObj = Nothing
 
End Sub

```
実行画面
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-05-17/e5df6e6a-8b65-4611-b11c-f0a47bcd2129.jpeg)

図面のあるフォルダ
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2022-05-17/88ca3cb2-f575-436a-b920-efd424dfb317.jpeg)

【 EXCELｰVBA 】助けて下さい！　リストの順にPDFファイルを印刷したい。

## ■前提：実現したいこと
非エンジニア、Python初学者です。

Pythonで、内容と件数が異なるが対応する２つのリストを整合させたいと考えています。

```Python
source_list = ["りんご", "オレンジ", "ぶどう", "バナナ", "いちご"]
target_list = ["abcりんご", "ぶどうdef", "abcバナナ"]
```
source_listの文字列がtarget_listの要素内にあればそれらをそのままタブ区切りでペアにし、なければ”Missing"という文字列とペアにして、整合した新たなリストを作りたいです。リストはsource_listの方がtarget_listよりも長いです。どちらのリストにも重複はありません。

##### 期待する出力結果：
```Python
new_list = ["りんご  abcりんご", "オレンジ  Missing", "ぶどう  ぶどうdef", "バナナ  abcバナナ", "いちご  Missing"]
```


## ■ 発生している問題
期待する出力結果が得られません。

##### 実際の出力結果：
```Python
new_list = ['りんご  abcりんご', 'ぶどう  ぶどうdef', 'いちご  Missing']
```

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

```Python
new_list = []

for source in source_list:
  target_item = target_list[0]
  if source in target_item:
    new_list.append(f"{source}  {target_item}")
    source_list.remove(source)
    target_list.remove(target_item)
  else:
    new_list.append(f"{source}  Missing")
    source_list.remove(source)

print(new_list)
```
## ■ 試したこと
source_list の要素を順にtarget_listの1つ目の要素と照合し、同じ文字列が存在すればそれらを新しいnew_listに転記した上でそれぞれから削除し、存在しなければ"Missing"と共にnew_listに転記して同様にに削除すれば、扱うのは常にtarget_listの1つ目の要素で固定できると考えました。しかし、対応する要素のない「オレンジ」と対応する要素のある「バナナ」については何も出力されないというよくわからない結果になります。

## ■ 環境情報
Google colaboratory 上で作業しています。
Python 3.7.13
Mac OS　12.3.1
よろしくお願いいたします。

Python　内容と件数が異なるが対応する２つのリストを整合させたい

こんにちは。データベース(mysqlを使用)から

```python
query = 'select * from table'
df = pd.read_sql(query, con=engine)
```
を使って、dataframeを取得して型変換を行い、保存を行いました。

```python
df["review_num"]=df["review_num"].astype("int16")
df["review_score"]=df["review_score"].astype("int16")
df.to_sql("table",url, if_exists="append", index=False)
```

しかし、実際にmysqlで型を見てみると

| review_num                | double   | YES  |     | NULL    |       |
| review_score              | bigint   | YES  |     | NULL    |       |

に変換されてしまいました。
bigintやdoubleではなくINTEGERやTINYINTにして保存するにはpython側ではどのように処理するべきでしょうか？型の大きさを小さくして保存したいと思っています。
よろしくお願いいたします。


DataFrameを.to_sqlで保存すると型が勝手に変換されてしまう問題


以下のような行列があった際に、b列の値が「１」であれば１つ上の行のc列を値を、そうじゃなければa列の値を取得するという計算を行いたいです。
以下に示すコードで計算は可能なのですが、データ数が増えると非常に重く計算に時間がかかってしまいます。
forの繰り返しを使わない方法や、dataframeではなくnumpynのndrrayなどを使って計算を高速化させる方法があれば教えていただきたいです。
よろしくお願いいたします。


|a|b|c|
|:--|:--:|--:|
|1|1|1|
|2|0|2|
|3|1|2|
|4|1|2|
|5|0|5|

・
・
・

```ここに言語を入力
for i in range(0,len(df)):
    if df["b"][i] == 1 :
            df["c"][i] =df["c"][i-1]
    else:
        df["c"][i] = df["a"][i]

```