常連

古いDBからExcelVBAでExcelにレコードを書き込むツールを作ってみたのですが、かなり重く悪戦苦闘しています。

現場のプロのみなさんはどう対応されてるかお伺いしたいです。

【状況】
2005年に作成されたAccess2000形式の拡張子「.mdb」のデータベースで、再構築した方が早そうなのは重々承知なのですが、他部署の営業が使ってるということでDBの再構築が叶わない状況です。
※Accessは32bitの2019版。win10の32bit。共有ドライブ上での使用。
※自身は1部署の効率化ツールを作成するために派遣で常駐しています

【ExcelVBA実行時の状況】
・初回の実行が4，5分かかります。しかし、2回目以降は数秒で該当のレコードをExcelシートに書き出すことができます。

・上記はaccessを開いた状態です。開いていないと、2回目以降も遅いです。アクセスを開いてクエリ実行完了までに5分くらいかかります。

【なぜ、実行準備が整うまで時間がかかるツールを使うのか】
2回目以降は数秒で取得できるため、処理件数（Excelのリストシート）が多いほど手動でやるよりも早く終わるからです。
※該当の顧客レコードを取得し、整形・加工して印刷とPDF保存を行うツールです

【ExcelVBA側のドライバ】
AIに聞いたところ、12.0の方がいいよってことなので、それを使ってます。
AI「Microsoft.Jet.OLEDB.4.0 は公式にはサポート終了しているため、可能であれば Microsoft.ACE.OLEDB.12.0 を使うのが推奨されます。
32bit 環境でも、Access Database Engine 2010 (32bit版) をインストールすれば、以下のように ACE.OLEDB.12.0 を使うことができます。」

【やってみたこと】
DBの最適化のみ（無駄クエリ、無駄テーブル等の削除行為は他部署のツールだからできない）

【DBの様態】
実際にデータが入っているDBと、フォームがあるDB（リンクテーブル）は分割されている

【知りたいこと】
経験豊富なプロの方たちはもし上記の状況だった場合、どうされますか？？
この状況は詰んでいますでしょうか？
これ以上やりようが無いか確かめたく質問させていただきました。

【上記の状況を要約】
勝手にDB再構築できない、レポートのレイアウトや、フォームの機能変更はできない。レコードを取得するのみならず更新作業もある。でも、事務作業に時間とられたくないから何とかならないかという依頼を受けている。




20年前に作られた古いAccessDBについて

## テーマ、知りたいこと

皆さんはどのような形式でファイルの管理やディレクトリの管理をしデータを管理しているのでしょうか？
自分は最近、PCのディレクトリを整理したり個人のスマホのメモ帳でメモっていた内容すべてをスプレッドシートに移行したりしていました。
特にディレクトリについては、決まったテンプレートもなく開発で様々なソフトを使っているとuser(ログイン名)のディレクトリにたくさん不要なファイルが作られたりして行きますよね。
そこでmyFolder的なのを作って
project,社内情報, 報告書、toolなどのフォルダを作っています。

メモについてはプログラミングに関して言えば
対象, 概要, メモ
のような列を持ったスプレッドシート状のテーブルを作成して、対象には言語やソフトウェアが何かを書いて管理しています。

また、こういった情報って業務上で学べるものなんでしょうか？新卒で採用された経験がないので新人研修的なものもなく、どのように皆さん考えておられるのか不思議です。

## 背景、状況

twitterで
「今新入社員にひと言伝えるなら、「すべての情報を基本mdファイルで管理しよう」ですね」
という内容の投稿が2,000回以上いいねされていました。

また、友人から「エンジニアだったりパソコンに詳しい人はオフィスソフトじゃなくてmdを使うのか？」と質問され、自分の考えが特殊なのもあり皆さんのご意見をお伺いしたいと思いました。

mdって使いづらい感じがするんですが、そんなにいいものでしょうか。
段落を自分で考えねばならず、ファイル毎の管理になるのでデータ管理としては見通しもよくありません。
人に見せる用の使い捨てであればわかりますが、すべての情報をと記載されていますしmdってデータの管理の側面で使い道あるのでしょうか。
md以外の形式からmdとしてデータを出力するプログラムはかけそうですが、逆は厳しい感じもします。

## 補足
mdだけに話題を絞ると内容がなさそうなので、データ管理全般についてもお伺いしようかと思いました。
意見交換の使い方がいまいち分かっていないのですが。
使い方がどこに書いているのか定かではありませんでしたが、とりあえず以下の内容を読むに問題無さそうと判断しています。
https://blog.teratail.com/entry/release-discussion

## 質問後追記
投稿前に気づけよって話ですがgitでバージョン管理しているなら、mdとクラウドサービス一択になりそうですね。。。
自分のところではsvnを使用しているので、完全に失念していました。。。
そう考えると使い分けの考えについても完全に納得いきます。。。

データの管理、ディレクトリやファイル形式について

### 実現したいこと

문제
셀	값

A1	10
A2	20
A3	0

### 発生している問題・分からないこと
왜 오류가 발생합니까?

### エラーメッセージ
```error
=IF(A3<>0, A1/A3, "A3가 0이므로 나눌 수 없습니다")
```

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

```
特になし
```

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

##### 上記の詳細・結果
이사이트에서 이에대해 검색했으나 답을 얻지 못했습니다.

### 補足
特になし

엑셀에서의 오류입니다.

### 実現したいこと
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-04-23/7f0f9e60-9917-45a5-8624-97d63df276fd.png)

大項目ごとの合計数字を代入したい。該当する列に。
添付の画像の①30行目と②40行目のカテゴリー別の合計行に、①には、23行目と29行目の小項目の合計を、②には、33行目と39行目の小項目の合計を該当する列に代入したい。
小項目の合計だけをうまく取得して、カテゴリー別の合計行に代入できないかと考えています。


### 発生している問題・分からないこと
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-04-23/74a84326-37e7-49c5-b30d-b46257bc37c2.png)

＜困っていること＞
合計する行は固定の行ではないので、「合計」という文字列のある行を取得して、合計するようにしていますが、
①だけならうまくいくのですが、
②の合計を算出する際に、①の下の行からカウントしなければならないのですが（1行目からだと二重計上になるため）、それがうまくいきません。
なぜか、②の行には0が代入されてしまいます。



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

```
※試しに以下のコードで一つの列で合計値を出したのですが、問題なく算出され代入されます。

Sub CalculateSpecificSum()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sumRow As Long
    Dim totalSum As Double
    Dim currentRow As Long
    
    ' シートを指定
    Set ws = ThisWorkbook.Sheets("収益状況")
    
    ' 合計値を初期化
    totalSum = 0
    
    ' A列の最初の「合計」行を取得
    sumRow = ws.Columns("A").Find(What:="合計", LookAt:=xlPart, MatchCase:=False).Row

    ' A列の「合計」行までループ
    For currentRow = 6 To sumRow - 1 ' 合計行の直前まで
        ' B列が「合計」の場合のみ処理
        If ws.Cells(currentRow, "B").value Like "*合計*" Then
            ' 12列目（L列）の値を加算
            totalSum = totalSum + ws.Cells(currentRow, 12).value
        End If
    Next currentRow

    ' 合計値をA列の「合計」行のL列に代入
    ws.Cells(sumRow, 12).value = totalSum
    
    MsgBox "指定された合計の計算が完了しました！", vbInformation
End Sub


※以下は、各列ごとに合計値を算出するようにしているはずなのですが、0となり算出されません。

Sub ProcessRevenueSums()
    Dim ws As Worksheet
    Dim sumRow As Long
    Dim totalSum As Double
    Dim currentRow As Long
    Dim colIndex As Variant
    Dim sumColumns As Variant
    
    ' シートを指定
    Set ws = ThisWorkbook.Sheets("収益状況")
    
    ' 合計する列を指定
    sumColumns = Array(12, 13, 14, 18, 19, 20, 21, 24, 25, 26, 27, 28, 29, 30, _
                       34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48)

    ' A列の最初の「合計」行を取得
    sumRow = ws.Columns("A").Find(What:="合計", LookAt:=xlPart, MatchCase:=False).Row

    ' 各列を順次処理
    For Each colIndex In sumColumns
        ' 合計値を初期化
        totalSum = 0
        
        ' A列の「合計」行までの範囲をループ
        For currentRow = 6 To sumRow - 1 ' 合計行の直前まで
            ' B列が「合計」の場合のみ処理
            If ws.Cells(currentRow, "B").value Like "*合計*" Then
                ' 該当列の値を加算
                totalSum = totalSum + ws.Cells(currentRow, colIndex).value
            End If
        Next currentRow

        ' 合計値をA列の「合計」行に代入
        ws.Cells(sumRow, colIndex).value = totalSum
    Next colIndex
    
    MsgBox "指定された列に順次合計を代入しました！", vbInformation
End Sub
```

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

##### 上記の詳細・結果
上記に記載のとおりですが、どうしてもうまくいきません。
Excelの関数でしたら実現できると思うのですが、該当する行が変わるので、その都度入力する手間もかかるため、VBAで実現できないかと考えています。
どなたか力を貸していただければ幸いです。
よろしくお願いいたします。

### 補足
特になし

VBAで、複数行あるカテゴリーごとの合計値の算出ができない

### 実現したいこと
プログラミング初学者です。
youtube apiを利用して、YouTubeの検索ワードから関連動画情報をスプレッドシートに出力したいです。
理解が乏しいため、ネットからコードをコピペして実行してみたのですが、下記のようなエラーが出てしまいました。

### 発生している問題・分からないこと
以下がエラーメッセージです。

Exception: Request failed for https://www.googleapis.com returned code 400. Truncated server response: {
  "error": {
    "code": 400,
    "message": "Invalid value at 'max_results' (TYPE_UINT32), \"youtube\"",
    "errors": [
      {
        "messag... (use muteHttpExceptions option to examine full response)
searchAndDisplayVideosInSpreadsheet	@ 無題.gs:26



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

```GAS
function searchAndDisplayVideosInSpreadsheet() {
  var API_KEY = 'YOUR_YOUTUBE_API_KEY'; // Replace with your YouTube API Key
  var SPREADSHEET_ID = 'YOUR_SPREADSHEET_ID'; // Replace with your Spreadsheet ID
  var sheet = SpreadsheetApp.openById(SPREADSHEET_ID).getActiveSheet();
  var searchQuery = sheet.getRange("A1").getValue();
  var maxResults = sheet.getRange("B1").getValue();
  var baseUrl = 'https://www.googleapis.com/youtube/v3/search';
  var options = {
    key: API_KEY,
    part: 'snippet',
    q: searchQuery,
    type: 'video',
    maxResults: maxResults,
    order: 'relevance',
  };
  var query = '?key=' + options.key +
              '&part=' + options.part +
              '&q=' + options.q +
              '&type=' + options.type +
              '&maxResults=' + options.maxResults +
              '&order=' + options.order;
  var response = UrlFetchApp.fetch(baseUrl + query);
  var data = JSON.parse(response.getContentText());
  if (data.items.length > 0) {
    data.items.forEach(function(item, index) {
      var videoId = item.id.videoId;
      var videoResponse = UrlFetchApp.fetch('https://www.googleapis.com/youtube/v3/videos?key=' + API_KEY + '&id=' + videoId + '&part=statistics,snippet');
      var videoData = JSON.parse(videoResponse.getContentText());
      var title = item.snippet.title;
      var channelTitle = item.snippet.channelTitle;
      var description = item.snippet.description; // Overview of the video
      var viewCount = videoData.items[0].statistics.viewCount;
      var likeCount = videoData.items[0].statistics.likeCount;
      var commentCount = videoData.items[0].statistics.commentCount;
      var videoUrl = 'https://www.youtube.com/watch?v=' + videoId;
      sheet.getRange(index + 4, 1).setValue(title);
      sheet.getRange(index + 4, 2).setValue(channelTitle);
      sheet.getRange(index + 4, 3).setValue(description);
      sheet.getRange(index + 4, 4).setValue(viewCount);
      sheet.getRange(index + 4, 5).setValue(likeCount);
      sheet.getRange(index + 4, 6).setValue(commentCount);
      sheet.getRange(index + 4, 7).setValue(videoUrl);
    });
    sheet.getRange(3, 1).setValue("タイトル");
    sheet.getRange(3, 2).setValue("チャンネル名");
    sheet.getRange(3, 3).setValue("概要");
    sheet.getRange(3, 4).setValue("再生回数");
    sheet.getRange(3, 5).setValue("いいね数");
    sheet.getRange(3, 6).setValue("コメント数");
    sheet.getRange(3, 7).setValue("動画URL");
  } else {
    Logger.log('No videos found.');
  }
}
```

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

##### 上記の詳細・結果
エラー文をコピペしたりして色々調べてみましたが、よくわかりませんでした。
また、他にもyoutube apiを使って、取得したyoutubeの動画のIDから再生数を表示するプログラムも作ったのですが、そちらは問題なく動きました。

### 補足
ソースコードの2行目の 'YOUR_YOUTUBE_API_KEY' と3行目の 'YOUR_SPREADSHEET_ID' は実際には自分のYoutube API KeyとスプレッドシートのIDに差し替えてますが、ここではそのままにしています。

Google App Scriptのエラー400の解決方法がわかりません

```excel
= YEAR(TODAY()) & "年" & MONTH(TODAY())-1 "月"
```
と書いている状態で、
このままだと来年の１月には2021年12月と表示されてしまうと思います。
関数の間に文字が入ってしまっている状態で
ひと月前の情報の2020年12月と表示させることは可能でしょうか。

よろしくお願いいたします。

関数で先月を表示させたい

### 実現したいこと
A1に３と入力したら、A1に☆☆☆★★のように表示できるものを作りたい。
黒い星は実装が不可能そうなら大丈夫です。

### 発生している問題・分からないこと
エクセルの機能で実現したいことを行う方法がわからない。
条件付き書式やREPT関数などの関数を調べてみましたが、わかりませんでした。



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

```
特になし
```

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

##### 上記の詳細・結果
条件付き書式や関数を調べてみましたが、
どれも他のセルを参照するものでした。
REPT関数も他のセルを参照するもので
無理そうだと思います。
条件付き書式のアイコンセット機能も便利でしたが
同一セルではありませんでした。

### 補足
特になし

エクセルで評価の星を同一セルで完結したものを作りたい

## テーマ、知りたいこと

ExcelをCOM利用しているVB6のプログラムがあるのですが
これをVB.Netにバージョンアップしたい。という話が私の所に来ています。

私は、社内で使うだけのプログラムなら、Excelマクロでいいのではと思いました。
ソースを読む限り、VBAでも事足りると感じたためです。

VBAはソースコードのバージョン管理が上手くできないと思うので
そこがネックとしてはあるのかなと思っているのですが
果たしてどうなのでしょうか。

また、.Netへの改修は、.Net Frameworkにしろ、.Net にしろ
解放処理をやたらとしないといけないのでコードが煩雑になると思っています。

また、EPPlusやClosedXMLを使うというのも手としてはあるのかなと思ってはいますが
余り使用経験がないのでよくわかっていません。

そのため、私はExcelマクロを推して提案しようかなと思っています。
皆さんならどうしますか？

## 自分で試したこと

.Netにする場合、以下がいいのかなと今は感じている所です。
ただ、これよりもExcelマクロの方がいいんじゃないかなとも思っている次第です。

以下の共通処理を作って
```VB.Net
Imports System.Runtime.InteropServices
Module Module1
    Private mListObject As List(Of Object)
    Public Sub AddComObject(rObject)
        If mListObject Is Nothing Then mListObject = New List(Of Object)
        mListObject.Add(rObject)
    End Sub

    Public Sub AllRereseComObjec()
        For i As Integer = mListObject.Count - 1 To 0 Step -1
            Marshal.ReleaseComObject(mListObject.Item(i))
        Next
        mListObject.Clear()
        mListObject = Nothing
    End Sub
End Module
```
こんな感じに使う方法です。
```VB.Net
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim objXLSApp As Object
        Dim objXLSBooks As Object 'Excel.Workbooks
        Dim objXLSBook As Object 'Excel.Workbook
        Dim objXLSSheets As Object 'Excel.Worksheets
        Dim objXLSSheet As Object 'Excel.Worksheet

        Dim objXLSCells As Object 'Excel.Range
        Dim objXLSRange As Object 'Excel.Range

        Dim tReleaseCom As New ReleaseComClass

        objXLSApp = CreateObject("Excel.Application")
        AddComObject(objXLSApp)
        objXLSBooks = objXLSApp.Workbooks
        AddComObject(objXLSBooks)
        objXLSBook = objXLSBooks.Open(TextBox1.Text, False, True)
        AddComObject(objXLSBook)
        objXLSSheets = objXLSBook.Sheets
        AddComObject(objXLSSheets)
        objXLSSheet = objXLSSheets.Item("Sheet1")
        AddComObject(objXLSSheet)
        objXLSCells = objXLSSheet.Cells
        AddComObject(objXLSCells)

        objXLSRange = objXLSCells.Item(1, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        objXLSRange = objXLSCells.Item(2, 1)
        AddComObject(objXLSRange)
        objXLSRange.value = "2"

        If System.IO.File.Exists(TextBox2.Text) Then
            System.IO.File.Delete(TextBox2.Text)
        End If
        objXLSBook.SaveAs(TextBox2.Text)

        objXLSBook.Close
        objXLSApp.Quit

        AllRereseComObjec()

    End Sub
```

オブジェクトを参照するたびに、それを追加していって
最後に逆順でリリースするだけなんですけど
最後に、順番を意識してリリースするのを列挙するのが大変だったり
同じ変数名を使いまわしたい場合、最後にリリースを列挙するより良いのかなと思った次第です。
