常連

古い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を使用しているので、完全に失念していました。。。
そう考えると使い分けの考えについても完全に納得いきます。。。

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

### 実現したいこと
Excelで、B2セルが入力されたらA2セルに「1」と表示され、B2が空白ならA2に何も表示されないようにしたい。
同様に、B3セルが入力されたらA3セルに「2」と表示され、B3が空白ならA3に何も表示されないようにしたい。
同様に繰り返し、B列が入力されたら連番がA列に表示されるようにするにはどうしたらいいですか

### 発生している問題・分からないこと
同上同上同上同上同上



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

```
特になし
```

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

##### 上記の詳細・結果
A列になにかしら式を書かないといけないのはわかった

### 補足
特になし

A列に連番を作成したい

### 実現したいこと
・セル「G4」から「G13」に、関数を使用して、「得点」が「７０点未満」の場合は「追試」、それ以外の場合は空白は表示させるようにしてください。
・セル「B16」に、関数を使用して、「受験人数」を表示しなさい。ただし、セル「E4」」から「E14」に得点が入力されている数値の個数を「受験人数」とする。
・セル「H4」から「H13」に、関数を使用して、「勤続年数」が「５年以上」で、かつ「得点」が「平均点以上」であれば「受講」、それ以外は空白が表示されるように設定してください。

### 発生している問題・分からないこと
どういう風にやったらいいかわからないです。



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

```
特になし
```

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

##### 上記の詳細・結果
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2025-06-28/95fdb018-e18f-4fc3-8544-719a9e561985.png)

### 補足
学校の宿題で出されたんですけど、やり方がわからないです。


excel　２重関数等の問題がわからないです。

### 実現したいこと
![イメージ説明](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で、複数行あるカテゴリーごとの合計値の算出ができない

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

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

### 実現したいこと

문제
셀	값

A1	10
A2	20
A3	0

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

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

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

```
特になし
```

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

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

### 補足
特になし

엑셀에서의 오류입니다.

### 実現したいこと
プログラミング初学者です。
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に差し替えてますが、ここではそのままにしています。