エクセル | nujonoa_blog https://nujonoa.com 人生に役立つデータ集 Wed, 12 Feb 2025 14:15:07 +0000 ja hourly 1 https://wordpress.org/?v=6.8.3 https://nujonoa.com/wp-content/uploads/2019/04/cropped-DSC00976-e1554456145409-32x32.jpg エクセル | nujonoa_blog https://nujonoa.com 32 32 安価な左手デバイスxp-penはエクセルに使えるのか！？ https://nujonoa.com/left-hand-device/ https://nujonoa.com/left-hand-device/#respond Wed, 12 Feb 2025 13:50:33 +0000 https://nujonoa.com/?p=24221 最近、aiの量産記事で面白くないものがたくさんになってきたので、
この記事が届く人が少ないかと思いますが、
今回は、6600円で買える、安価な左手デバイスxp-penはエクセルに使えるのか！？について解説していきたいと思います！

左手デバイスを検討している方は特に参考にしていってください！

安価な左手デバイスxp-penはエクセルに使えるのか！？

今回の記事は、比較的安価に変える、xp-penはエクセルなどの事務作業に使えるのか？
について解説してきたいと思います！

AIの回答

まずは参考までにAIの回答を載せておきます。
当たり障りなく、当たり前のことが書いてあるかなという感じです。
↓

結論から言うと、 使えるが、向き・不向きがある！ という感じです。

メリット

✅ ショートカットキーの登録が可能
→ 「Ctrl + C（コピー）」や「Ctrl + V（貼り付け）」など、よく使う操作をボタンに設定できる。

✅ マウスを持ち替えずに操作できる
→ 片手でショートカット操作ができるため、マウスとキーボードの移動が減る。

✅ Excel の作業スピードアップ
→ 例えば、「F2（セル編集）」「Ctrl + Z（元に戻す）」「Alt + Tab（アプリ切り替え）」などを登録すれば、スムーズな作業が可能。

デメリット

❌ 細かい操作には不向き
→ セルの選択や関数の入力などは、キーボードやマウスの方が速い。

❌ デバイスによっては設定が面倒
→ ショートカットの設定が少し手間。専用ソフトが必要な場合もある。

❌ すべての Excel 作業が効率化できるわけではない
→ 特に表計算や関数入力は、キーボード操作の方が効率的。

個人の回答　「キーボード、マウスにこだわってその後、買え」　

これに対して、わたくし個人の回答としては、
まずは、「キーボード、マウスにこだわって買ってください。そしてやることがなくなったら、検討してもいいかもしれません。」

というのが回答になります。

が、「一回使ったら離れられない。。。」

というのもまた事実です。

ということで、これについて語っていきたいと思います。

事務作業に左手デバイスはいるか？

もともと左手デバイスというのは、「絵描き」さんが使うものとしてXP-PENでは販売されています。
ですので、キーボードの上に手がない状態を意識して作られています。

イメージは右手にペンをもって、左手で、このデバイスを使って拡大、回転、色変更、レイヤーの変更などなどをしていくイメージですね。

それに対して、事務作業では、基本手はキーボードの上にあります。

ですので、左手デバイスを買ったとしても、わざわざそこに手を持っていく必要があるとなると、
使わないのでは？？という印象を持つ方が多くいるのではないかと思います。

それは半分正解で半分不正解になります。

というのも、左手デバイスを導入してみて気づくことは、
エクセルなどを触っているときに、
右手はマウス、左手はキーボードみたいな状況が多々発生していることに気づかされます。

そして、左手はコピペのために、ctrl+C、ctrl+vと
「かなり左手の小指に無理をさせていることに気づくはず」です。

もはや、コピペ何回もするんだから、ショートカットキーを一発で一つのキーで押せるようにしておけよ。
と。笑

となったときに、左手デバイスを使うと、

「左手は左手デバイス、右手はマウス」

みたいな感じで結構仕事が完結することがあります。

全然イメージつかないかもしれませんが、これがなれると結構楽で、
実際には、下記のようなショートカットを設定し、
・マウスで範囲選択して、コピーボタン→ペーストボタン
・スクショボタンでスクショ立ち上げて、マウスで範囲選択して、ペーストボタン
と、小指を酷使して、実は無理やりボタンを押していたことから解放されることでしょう。

さらに、スクロールを円盤で行うことも可能なのですが、
実は、マウスでスクロールすると、左クリックの人差し指が死んでいて、選択するためには、人差し指を持ち替えないといけないという超些細な問題に気づくことになるかと思います。

これも地味ではあるんですが、結構作業効率アップにつながり、
キーボードで全部作業する派閥＞左手デバイス導入派閥＞従来のキーボードマウス派閥
みたいな形で、作業効率が図れると思います。

一発でリンクに飛べる

さらに、
・一発でchatgptが立ち上がるボタン。
を導入していて、よく見るサイト、よく使うフォルダなどを登録しておくことで、
「あれこんなに簡単にアクセスできるの？」
こんなに、あのフォルダを起動させるのが「苦」だったなんてということにも気づかされると思います。

ショートカット張ってあるから、それをダブルクリックすればいいじゃん！
と思っていた自分が、ぴっ、っぱ　でフォルダが立ち上がる快感を覚えると、
「あの仕事やりたくないな。。」のハードルを下げることができるので、
かなり優秀なデバイスになるのかなと思います。

やる気センサーに火をつけるのが大変！
一度やってしまったら思ったより苦ではないという経験が多々あるかと思いますが、
そのセンサーの着火を早めることができることが
「実は一番重要な左手デバイスの役割」
なのかもしれません。

まとめ

ということで、結論

使い始めたら病みつきになる「するめデバイス」というのが、
左手デバイスの使ってみた検証結果になります！

やる気センサーをオンに！
そして、
マウス＋左手デバイスの繰り返し作業を多用することがある！
※小指を酷使してあげないで！自由に解放してあげて！笑

という人にとっては最良のデバイスになるかと思います。

ぜひぜひ、この沼に一緒にはまってみませんか？

]]> https://nujonoa.com/left-hand-device/feed/ 0 楽天銀行マネーサポートからエクセルで家計簿を作成！自動入力も！ https://nujonoa.com/creating-a-household-account-book-from-money-support/ https://nujonoa.com/creating-a-household-account-book-from-money-support/#respond Thu, 20 Jan 2022 11:06:00 +0000 http://nujonoa.com/?p=8204
  1. 楽天銀行マネーサポートからエクセルで家計簿を作成！自動入力も！
  2. マネーサポート→家計簿置き換えファイルの紹介
  3. ファイルのアウトプットを確認
  4. ファイルの使い方
  5. 自動入力、自動振り分けについて
  6. まとめ

楽天銀行マネーサポートからエクセルで家計簿を作成！自動入力も！

昨今、「QR決済」「クレジットカード決済」などが増えてきたことで、

「お金を使いすぎる！」
「お金の管理ができない！」

といわれていますが、
実際のところどうなのでしょうか？

確かに、お財布から現金を出すとお金を使っている感覚が大きいので、
支出が抑えられる可能性がありますが、
実際に何に使ったかレシートを整理しないとわからなくなります。

しかも、ネット通販も増えましたし、ポイント付与なども考えると、
高額な商品を買う時に、「クレジットカード」を使わないという選択肢は
考えられない時代になってきていると思います。

では、これらの時代にあった家計簿とはどのようにすべきか、
それは、

・基本的にクレジットカードや、PAYPAYなどを使い、
　収支の振り分けを自動化する。(なるべく手間を無くす)

・振り分けられなかったところを、自分で振り分けることで、
　自分の使ったお金を確認する。(お金を使っていることを自覚する)

システムが一番合っているのではないかと思います。

そしてそれを

1ヶ月ごとに行う！！

ことで、現金であろうが、クレジットカードであろうが、
きちんと出入りを「把握する」ことが大事になってくると思います。

そこで今回は、楽天銀行のマネーサポートを使って、
家計簿を簡単につけることのできるエクセル(スプレッドシート)のファイルを作成しましたので、是非使ってみてください！

マネーサポート→家計簿置き換えファイルの紹介

ファイルの説明は後述しますので、
まずは、ファイルをダウンロードして、ザックリと眺めてみてください。

毎月の収支を「例」のように分類していくことで、
どこにどれだけお金を使っているか、把握することができます。

ファイルダウンロード

ファイルのアウトプットを確認

ダウンロードいただいたファイルは、2段構成になっており、
まとめシートと、詳細シートで構成されています。

①まずまとめシートですが、
下記のように、各月で何にどれだけ使ったかを一目で見ることのできるシートになります。表題も自由に変更可能ですので、自分の収入、支出にあったものに変更可能です。

②詳細は、各月シートに分かれており、
　日付、内容、金額が表示され、自動分類された項目以外を手動で分類していきます。
　この結果が、まとめシートに飛ぶことになります。　

ファイルの使い方

ファイルの使い方を説明していきます。

まずは、詳細シートの説明です。

①マネーサポートからのCSVデータをダウンロード。

②対象の月の貼り付け位置に張り付け(左上の黄色色のセルになります。)

③自動振り分けされた行は緑色に表示されます。

④自動で入力されなかった項目に関しては、自分で入力していきます(「1」を入力)。

⑤結果、がサマリに表示されます。

自動入力、自動振り分けについて

よく使用するスーパーなどに関しては、
サマリシートの水色セルに、クレジット明細で出てくる名前を入力しておけば、
自動で振り分けされます。

たとえば、外食の欄の水色セルに「スシロー」と入力しておけば、
クレジット明細にスシローとは言っている場合、自動で振り分けされます。

まとめ

このフォーマットを使うことで、月1のフォローで家計簿が簡単に作成されます。

何となく、お金使った気がするな～が、目に見えることによって、
ヤバイ、お金使い過ぎた…　という気持ちに変わります。笑

ぜひぜひ、一度家計簿をつける参考に、使ってみてください！！

ファイルダウンロード
]]> https://nujonoa.com/creating-a-household-account-book-from-money-support/feed/ 0 【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法 https://nujonoa.com/hyperlink-for-each-sheet/ https://nujonoa.com/hyperlink-for-each-sheet/#respond Fri, 05 Feb 2021 13:45:00 +0000 http://nujonoa.com/?p=8766
  1. 【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【VBA】特定フォルダのファイルとシート一覧表＋ハイパーリンクを作る方法

フォルダ内のファイル一覧は簡単に取り出すことができますが、
フォルダ内のエクセル「シート」一覧をとりだすのは少しテクニックが要ります。

そこで今回は、特定のフォルダ内のエクセルのシート一覧を読み込むことができる、
プログラムを紹介したと思います。

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

※ダブルクリックでコピー

Sub JIKKOU()
  
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
      
End Sub
 
Sub DBMacro(Path As String)
  
  Application.ScreenUpdating = False
  
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
  
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
      
  
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
      
    Z = 2
      
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Z = Z + 1
      
    For Each sFile In cf.Files
   
    If sFile = "False" Then
        Exit Sub
    End If
      
    If sFile.Name Like "*.xls*" Then
      
    Else
        GoTo Continue
    End If
    
'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
  
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
    
'情報を張っていく。
     Application.DisplayAlerts = False
              
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
              
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
      
        Application.DisplayAlerts = True
              
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
      
        Application.StatusBar = Z
      
Continue:
    Next
 
    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
      
    Application.Calculation = xlCalculationAutomatic '自動計算開始
     
  Application.ScreenUpdating = True
      
End Sub

プログラムの説明

プログラムは、
・ADOを使って、エクセルをDBとみなして、
　各ファイルのシートの情報をとってくる
・その情報と、パスの情報を組み合わせて、ハイパーリンクを作成していく

Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"

プログラムとなっています。

まとめ

フォルダの整理が追い付かなくなってきたら、
ぜひ使ってみていただけたらと思います。

]]> https://nujonoa.com/hyperlink-for-each-sheet/feed/ 0 【VBA】ファイルを立ち上げずに、セルの情報を抜き出す方法 https://nujonoa.com/how-to-extract-information-without-launching-a-file/ https://nujonoa.com/how-to-extract-information-without-launching-a-file/#respond Thu, 04 Feb 2021 14:07:43 +0000 http://nujonoa.com/?p=8763
  1. 【VBA】ファイルを立ち上げずに、エクセルの情報を抜き出す方法
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【VBA】ファイルを立ち上げずに、エクセルの情報を抜き出す方法

エクセルで他のシートからセルの情報を持ってこようとすると、
ブックを立ち上げて、情報をコピーして、閉じてを繰り返し行う必要があります。

が、そんなことやっていたら日が暮れてしまいますよね。。

そこで今回は、ファイルを立ち上げずに、下記のように

・特定のフォルダ内の
・全ブックの
・全シートの
・特定のセルの情報
を持ってくる方法を紹介したいと思います。

フォルダ内の全ファイル全シートの情報を抜き出す。

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

※ダブルクリックでコピーできます。

Sub JIKKOU()
 
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
     
End Sub

Sub DBMacro(Path As String)
 
  Application.ScreenUpdating = False
 
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
 
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
     
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
     
    Z = 2
     
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Cells(Z, 7) = "ここからセルの値⇒⇒"
    Z = Z + 1
     
    For Each sFile In cf.Files
  
    If sFile = "False" Then
        Exit Sub
    End If
     
    If sFile.Name Like "*.xls*" Then
     
    Else
        GoTo Continue
    End If
   
'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
   
'情報を張っていく。
     Application.DisplayAlerts = False
             
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
             
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
             
            Cells(Z, 7) = "=" & CELLPASS & "F6"  '任意のセルに変更
            Cells(Z, 8) = "=" & CELLPASS & "Y6"  '任意のセルに変更
            Cells(Z, 9) = "=" & CELLPASS & "M9"  '任意のセルに変更
            Cells(Z, 10) = "=" & CELLPASS & "M15"  '任意のセルに変更
            Cells(Z, 11) = "=" & CELLPASS & "E19"  '任意のセルに変更
            Cells(Z, 12) = "=" & CELLPASS & "B26"  '任意のセルに変更
            Cells(Z, 13) = "=" & CELLPASS & "I26"  '任意のセルに変更
            Cells(Z, 14) = "=" & CELLPASS & "P26"  '任意のセルに変更
            Cells(Z, 15) = "=" & CELLPASS & "B28"  '任意のセルに変更

 
            DoEvents  '重すぎるのでフリーズしないように入れる。
 
'シートをリンクさせないバージョン↓
'            Cells(Z, 8).Value = ExecuteExcel4Macro("'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!R26C2")
             
             
        Application.DisplayAlerts = True
             
             
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
     
        Application.StatusBar = Z
     
Continue:
    Next

    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
     
    Application.Calculation = xlCalculationAutomatic '自動計算開始
    
    Range(Cells(1, 1), Cells(Z, 30)).Formula = Range(Cells(1, 1), Cells(Z, 30)).Formula
    
  Application.ScreenUpdating = True
     
End Sub

プログラムの説明

ADOを使って、エクセルをDBとみなして、
各ファイルのシートをすべてとってきています。

'db関数を使用。
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
’シート名を取り出す作業
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")

その情報を使って、
・そのブックにリンクを作っていきます。
【＝'パス名[ブック名]シート名'セル名】
例)='C:\Users\bluei\OneDrive\ドキュメント\blog\fp[(201912)簡易FP.xlsx]→'!F6】

他のファイルで↓の表示が出ると、かなり萎えますが、今回の場合は、これを思う存分行うようにしています。

安全ではない可能性のある外部ソースへのリンクが

そのまま数式は残してありますが、最後にコピーして値貼り付けをすれば、
このリンクは削除できますので、変に重たいファイルになることを防ぐことも可能です。

まとめ

暗黙知を形式知にしたり、情報の共有を図るために、

・何かしらのフォーマットにある程度のルールにのっとったファイル

を作っていくことがあると思いますが、
残念ながらそれがうまく活用されることが少ないように感じます。

そのハードルを下げるためにも、誰もが使っているエクセルで、
DBを作ることに意味はあると思います。

是非検討してみてください！！

]]> https://nujonoa.com/how-to-extract-information-without-launching-a-file/feed/ 0 【エクセルDB】フォルダ内の全ファイル全シートのセルの情報を書き出す。 https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/ https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/#respond Sat, 23 Jan 2021 13:53:11 +0000 http://nujonoa.com/?p=8184
  1. 【エクセルDB】フォルダ内の全ファイル全シートの情報を書き出す。
  2. プログラム紹介
  3. プログラムの説明
  4. まとめ

【エクセルDB】フォルダ内の全ファイル全シートの情報を書き出す。

エクセルは時代遅れ、、、といわれながらも、
社内外のやり取りはエクセルで行われるのが主ですし、
これからもそれがどっと変わることはないでしょう。
※スプレッドシートはありかなと思うのですが…
　結局なんやかんや表計算ソフトは便利です。

そこで、今回はエクセルデータベースをVBAで無理やり作ってみました。

出来ることは、下記画像の通り、
対象のフォルダ内のエクセルシートの
・ファイルのパス
・エクセルのファイル名
・エクセルのシート名
・そのシートへのリンク
・そのシートの対象のセルの値を読み込む。

フォルダ内の全ファイル全シートの情報を抜き出す。

というプログラムです。

フォルダと、セルの値だけ変えてもらえればすぐに使えますので、
ぜひ参考にしてみてください！！！

プログラム紹介

プログラムを動かす前に、

①VBAの編集画面「ツール→参照」で、
Microsoft ActiveX Data Objects 2.8 Library
を追加して下さい。
②フォルダパスを検索したいパスに設定してください。
③「任意のセルに変更」の箇所を思い通りに変更ください。

それが出来たら実行してください。

Sub DBMacro(Path As String)
 
  Application.ScreenUpdating = False
 
'    Application.Calculation = xlCalculationManual '自動計算停止(手動計算)
 
    Dim objCn As New ADODB.Connection
    Dim objRS As ADODB.Recordset
    Dim sSheet As String
    Dim i      As Long
     
 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set cf = fso.GetFolder(Path)
     
    Z = 2
     
    Cells(Z, 1) = "ファイルへのパス"
    Cells(Z, 2) = "ファイル名"
    Cells(Z, 3) = "シート名"
    Cells(Z, 4) = "計算用"
    Cells(Z, 5) = "フォルダパス"
    Cells(Z, 6) = "シートへのリンク"
    Cells(Z, 7) = "ここからセルの値⇒⇒"
    Z = Z + 1
     
     
     
    '直下
     
    For Each sFile In cf.Files
     
  
    If sFile = "False" Then
        Exit Sub
    End If
     
    If sFile.Name Like "*.xls*" Then
     
    Else
        GoTo Continue
    End If
   
    With objCn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .Properties("Extended Properties") = "Excel 12.0"
        .Open sFile
        Set objRS = .OpenSchema(ADODB.adSchemaTables)
    End With
 
    Do Until objRS.EOF
        sSheet = objRS.Fields("TABLE_NAME").Value
        If Right(sSheet, 1) = "$" Or Right(sSheet, 2) = "$'" Then
            If Right(sSheet, 1) = "$" Then
                sSheet = Left(sSheet, Len(sSheet) - 1)
            End If
            If Right(sSheet, 2) = "$'" Then
                sSheet = Left(sSheet, Len(sSheet) - 2)
            End If
            If Left(sSheet, 1) = "'" Then
                sSheet = Mid(sSheet, 2)
            End If
            sSheet = Replace(sSheet, "''", "'")
        Application.DisplayAlerts = False
             
            Cells(Z, 1) = sFile.Path
            Cells(Z, 2) = sFile.Name
            Cells(Z, 3) = "'" & Replace(sSheet, "#", ".")
             
            Cells(Z, 4) = InStrRev(Cells(Z, 1), "\")
            Cells(Z, 5) = Left(Cells(Z, 1), Cells(Z, 4))
            CELLPASS = "'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!"
            Cells(Z, 6) = "=HYPERLINK(A" & Z & "&""#""&C" & Z & "&""!A1"",""リンク"")"
             
            Cells(Z, 7) = "=" & CELLPASS & "F6"  '任意のセルに変更
            Cells(Z, 8) = "=" & CELLPASS & "Y6"  '任意のセルに変更
            Cells(Z, 9) = "=" & CELLPASS & "M9"  '任意のセルに変更
            Cells(Z, 10) = "=" & CELLPASS & "M15"  '任意のセルに変更
            Cells(Z, 11) = "=" & CELLPASS & "E19"  '任意のセルに変更
            Cells(Z, 12) = "=" & CELLPASS & "B26"  '任意のセルに変更
            Cells(Z, 13) = "=" & CELLPASS & "I26"  '任意のセルに変更
            Cells(Z, 14) = "=" & CELLPASS & "P26"  '任意のセルに変更
            Cells(Z, 15) = "=" & CELLPASS & "B28"  '任意のセルに変更
            Cells(Z, 16) = "=" & CELLPASS & "I28"  '任意のセルに変更
            Cells(Z, 17) = "=" & CELLPASS & "N28"  '任意のセルに変更
            Cells(Z, 18) = "=" & CELLPASS & "I29"  '任意のセルに変更
            Cells(Z, 19) = "=" & CELLPASS & "P29"  '任意のセルに変更
            Cells(Z, 20) = "=" & CELLPASS & "W26"  '任意のセルに変更
            Cells(Z, 21) = "=" & CELLPASS & "AD26"  '任意のセルに変更
            Cells(Z, 22) = "=" & CELLPASS & "AK26"  '任意のセルに変更
            Cells(Z, 23) = "=" & CELLPASS & "W28"  '任意のセルに変更
            Cells(Z, 24) = "=" & CELLPASS & "AD28"  '任意のセルに変更
            Cells(Z, 25) = "=" & CELLPASS & "AI28"  '任意のセルに変更
            Cells(Z, 26) = "=" & CELLPASS & "AD29"  '任意のセルに変更
            Cells(Z, 27) = "=" & CELLPASS & "AK29"  '任意のセルに変更
 
            DoEvents  '重すぎるのでフリーズしないように入れる。
 
'シートをリンクさせないバージョン↓
'            Cells(Z, 8).Value = ExecuteExcel4Macro("'" & Cells(Z, 5) & "[" & Cells(Z, 2) & "]" & Cells(Z, 3) & "'!R26C2")
             
             
        Application.DisplayAlerts = True
             
             
            Z = Z + 1
        End If
        objRS.MoveNext
    Loop
    objRS.Close
    objCn.Close
    Set objRS = Nothing
    Set objCn = Nothing
     
        Application.StatusBar = Z
     
Continue:
    Next

    '子フォルダも同様に、subFolderを実行する。
    With CreateObject("Scripting.FileSystemObject")
        For Each childf In .GetFolder(Path).SubFolders
            Call DBMacro(childf.Path)
        Next
    End With
     
    Application.Calculation = xlCalculationAutomatic '自動計算開始
    
    
    
    Range(Cells(1, 1), Cells(Z, 30)).Formula = Range(Cells(1, 1), Cells(Z, 30)).Formula
    
  Application.ScreenUpdating = True
     
End Sub

Sub JIKKOU()
 
        Call DBMacro("C:\Users\bluei\OneDrive\ドキュメント\blog\fp") '←検索したいフォルダを指定する。
     
End Sub

プログラムの説明

長すぎるので、説明は端折りますが、

・ファイルを検索して、
・ファイルがエクセルの場合、その中のシートを全部読み取りハイパーリンクを作成がてら、
・そのシートの特定のセルへ【='C:\Users\bluei\OneDrive\ドキュメント\blog\fp[(201912)簡易FP.xlsx]→'!F6】みたいな外部リンクの数式をじゃんじゃん作っていく。

イメージです。

よくある悪者

安全ではない可能性のある外部ソースへのリンクが

を逆に存分に使ってやろうという感じになります。
そのまま数式は残してありますが、最後にコピーして値貼り付けをすれば、
このリンクは削除できますので、変に重たいファイルになることを防ぐことも可能です。

まとめ

結構苦労してたどり着いたプログラムなので、
かわいがってやってください。

何か要望などあれば、コメントへどうぞ！

]]> https://nujonoa.com/extract-cell-information-of-all-files-and-all-sheets/feed/ 0 【エクセル】上位n個の合計値を1セルで計算する方法！ https://nujonoa.com/calculate-the-total-value-of-the-top-n-points/ https://nujonoa.com/calculate-the-total-value-of-the-top-n-points/#respond Sun, 22 Nov 2020 14:18:00 +0000 http://nujonoa.com/?p=7653
  1. 上位n個の合計値を計算する方法！
  2. 数式紹介
  3. 数式の説明

上位n個の合計値を計算する方法！

二八の法則といわれるように、
物事は、

上位2割のものの合計が8割を占める

という現象がよく起こります。
そこで、上位n個の合計値を確認し割合を確認することで
データの目の付け所を知ることができます。

そこで今回亜H、上位n個を関数で計算する方法を紹介したいとも思います。

数式紹介

今回紹介する数式は、
・SUMPRODUT
・ROWS
・INDIRECT
を用いて、

=SUMPRODUCT(LARGE(データ範囲,ROW(INDIRECT("1:n"))))

実際の使用例
=SUMPRODUCT(LARGE($C$3:$C$10,ROW(INDIRECT("1:3"))))

と記述します。

計算結果は下記の通り、
・上位1位までの合計が、10
・上位2位までの合計が、18=10+8
・上位3位までの合計が、24=10+8+6
と、狙った通り計算できていることが分かります。

数式の説明

今回の肝となっている関数はLARGE関数です。

LARGE関数は

= LARGE(data ,n ) // n番目に大きい

のように、使用し、n番目に大きい数字を検索することができます。

今回はそれにSUMPRODUCT関数を組み合わせて上位n点の合計を表現しています。

この数式にたどり着くイメージは、

①簡単に記述すると、
= LARGE(data ,１) +LARGE(data ,2) +LARGE(data ,3) +・・・＋LARGE(data ,n)

②上記の式をSUMPRODUCTで表現すると下記のように書くことができる。
=SUMPRODUCT(LARGE(data,{1,2,3,…n})

③配列のn数が多くなると記述できなくなるので、ROWを用いて表現。
＝SUMPRODUCT(LARGE(data,ROW(INDIRECT("1:N")))

という流れになるかと思います。

ROW(INDIRECT("1:N")が理解しにくいかと思いますが、
実際セルに入力すると、下記のように1～10までの配列が作成されることが分かると思います。

]]> https://nujonoa.com/calculate-the-total-value-of-the-top-n-points/feed/ 0 【エクセル】SUMを用いて累計を計算する方法！ https://nujonoa.com/the-cumulative-total-with-sum/ https://nujonoa.com/the-cumulative-total-with-sum/#respond Fri, 20 Nov 2020 13:52:00 +0000 http://nujonoa.com/?p=7647
  1. SUMを用いて累計を計算する方法！
  2. 数式紹介
  3. 数式の説明

SUMを用いて累計を計算する方法！

損益の計算などで、累計の損益を計算したいときなどが出てくると思います。

そんな時に使える、SUMを用いた累計の計算方法を紹介したいと思います。

数式紹介

今回紹介する数式は、非常にシンプルで
・SUM
を用いて、

=SUM($開始セル:累計セル)

実際の使用例
=SUM($C$3:H3)

と記述します。

結果は下記の通り、開始セルから累計値を計算できていることが分かります。

数式の説明

知ってしまえば当たり前なのですが、
開始位置を＄で固定し、計算してあげることで累計の計算を行うことができます。

何となく、累計値を計算するとなると下記の計算式のように

今までの値＋新しい値

と考えてしまいがちなのですが、
「累計」などのラベルを設置するとエラーになってしまい困っていたところ、
同僚から教えてもらった数式になります。

本当に単純な計算式ですが、ぜひ使ってみてください！

]]> https://nujonoa.com/the-cumulative-total-with-sum/feed/ 0 【エクセル】前方が一致、後方が一致するセルの数を数える。 https://nujonoa.com/count-the-first-matching-cell/ https://nujonoa.com/count-the-first-matching-cell/#respond Thu, 19 Nov 2020 14:07:00 +0000 http://nujonoa.com/?p=7626
  1. 前方が一致、後方が一致するセルの数を数える。
  2. 数式紹介
  3. 数式の説明
  4. 応用編

前方が一致、後方が一致するセルの数を数える。

前方一致(先頭)、後方一致する場合のセルの数を数えたい

という要望に応え、
COUNTIFを用いたカウント方法を説明したいと思います。

数式紹介

今回紹介する数式は、
・COUNTIF
を用いて、

=COUNTIF(データの範囲,"検索文字列*")

実際の使用例
=COUNTIF($B$4:$B$11,"A*")

と記述します。

結果は下記の通り、Aから始まる文字列の数をカウントできています。

また、同様の記載方法で、後方一致、特定の値を含む場合のセルの数をカウントしています。

数式の説明

COUNTIFは通常、「特定の値と同じ」セルの数をカウントする場合に使いますが、

検索文字列を工夫することで、様々な文字列を検索できます。

前方一致
=COUNTIF(データの範囲,"検索文字列*")
後方一致
=COUNTIF(データの範囲,"*検索文字列")
含む
=COUNTIF(データの範囲,"*検索文字列*")
文字列①で始まり、文字列②で終わる。
=COUNTIF(データの範囲,"検索文字列①*検索文字列②")

応用編

今回はセルの数を数える方法を説明しましたが、
SUMIFで同様な式を用いることで、数量を数えることも可能です。

数式としては、

=SUMIF(表題範囲,"検索文字列*",合計範囲)

使用例)
=SUMIF($B$4:$B$11,"A*",$C$4:$C$11)

と記載します。COUNTIFの数式に合計範囲を追加した形になります。

頭の文字で種類を決めておくことで、簡単に分類別集計することが可能ということですね！

]]> https://nujonoa.com/count-the-first-matching-cell/feed/ 0 【エクセル】データ内の空白セルの数を数える。 https://nujonoa.com/count-the-number-of-blank-cells/ https://nujonoa.com/count-the-number-of-blank-cells/#respond Wed, 18 Nov 2020 13:48:00 +0000 http://nujonoa.com/?p=7623
  1. データ内の空白セルの数を数える。
  2. 数式紹介
  3. 数式の説明

データ内の空白セルの数を数える。

データ内の空白セルの数を数えたいときに使用できる関数が

COUNTBLANK関数です。

数式紹介

今回紹介する数式は、
・COUNTBLANK
を用いて、

=COUNTBLANK(データの範囲)

実際の使用例
=COUNTBLANK($B$4:$B$11)

と記述します。

結果は下記の通り、空白のセルがカウントされていると思います。
これは、COUUNTIFで検索値を0とした時と同様です。

ここで注目してもらいたいのが、0を入力した場合、「空白ではない」と判断されるところです。
空白も0もどちらも計算したい場合は、SUMPRODUCTを用います。

数式の説明

COUBTBLANK

の使い方は非常に簡単ですので、使えるかどうかは、
「知っているかどうか」です。

未入力項目がないかの判定をする時に使えるかと思います。

ただし、0を入力した場合でも空白セルとは認識されないことになりますので、

その場合は、下記のようなSUMPRODUCTの式をご利用ください。

=SUMPRODUCT(((データの範囲=0)*1)

使用例)
=SUMPRODUCT(((B4:B11)=0)*1)

]]> https://nujonoa.com/count-the-number-of-blank-cells/feed/ 0 【エクセル】閾値より大きいセルをカウントする https://nujonoa.com/count-values-greater-than-the-threshold/ https://nujonoa.com/count-values-greater-than-the-threshold/#respond Tue, 17 Nov 2020 13:34:14 +0000 http://nujonoa.com/?p=7620
  1. 閾値より大きいセルをカウントする
  2. 数式紹介
  3. 数式の説明

閾値より大きいセルをカウントする

閾値より大きいセルの数をカウントする方法は様々ありますが、
一番簡単なのが、COUNTIFを使う方法です。

少々記述の仕方が特殊ですが、紹介していきたいと思います。

数式紹介

今回紹介する数式は、
・COUNTIF
を用いて、

=COUNTIF(データの範囲,">=閾値")

実際の使用例
=COUNTIF($B$4:$B$8,">=30")

と記述します。

結果は下記の通り、各閾値より大きい値がカウントされていると思います。

数式の説明

一般的にCOUNTIFでは、「特定の値と同じ」セルの数を数えますが、
不等号を用いることで、閾値に対して判別することが可能です。

今回の式では、">="を用いましたが、
下記の通り、不等号を変えることで様々な対応ができます。

以上
=COUNTIF(データの範囲,">=閾値")
以下
=COUNTIF(データの範囲,"<=閾値")
より大きい
=COUNTIF(データの範囲,">閾値")
未満
=COUNTIF(データの範囲,"<閾値")

間の数を判断したい場合、上記の式を組み合わせて、

50以上70未満
=COUNTIF(データの範囲,">=50")-COUNTIF(データの範囲,">=70")

と記述することで、間も簡単に計算することができます。

]]> https://nujonoa.com/count-values-greater-than-the-threshold/feed/ 0