Youtor
【Excel】神Excel徹底攻略
YOUR LINK HERE:
http://youtube.com/watch?v=ZQYtqZGJXH0
ルイカともうします。 • 今回は神Excelといわれる、セルを方眼紙にしたり結合したExcelからデータを集計する方法をご紹介いたします。 • 神Excelに限らず、データを１行にする時の参考になると思いますので、ぜひご覧くださいね。 • 【使用素材】 • Microsoft Excel • https://www.amazon.co.jp/s?k=microsof... • 音声 • VOICEVOX: 四国めたん • https://voicevox.hiroshiba.jp/ • 音楽 • BGMer: https://bgmer.net • イラスト • イラストAC: https://www.ac-illust.com/ • いらすとや: https://www.irasutoya.com/ • その他フリー素材サイト • • #excel • #神Excel • #ネ申Excel • #結合 • #データ抽出 • 【目次】 • 0:00 神Excelとは • 1:20 結合セルや１文字ずつをデータ化 • 28:32 オブジェクトでもデータ化 • 37:49 結合セルや１文字ずつをデータ化２ • 38:45 エラーチェックもしてみよう • 44:49 複数のファイルを１つにまとめる • 46:32 リストにまとめる • 49:35 神Excelは常にダメなのか • ↓↓↓↓↓↓↓↓↓↓↓ 今回使用したVBA ↓↓↓↓↓↓↓↓↓↓↓ • Option Explicit • Function 性別判定_男(シート番号 As Long) • Dim 図形 As Shape • Dim 対象範囲 As Range • Dim 図形の左上 As Range • Dim 重なり As Range • • Application.Volatile • • 性別判定_男 = • • With Worksheets(シート番号) • • '男性の範囲 • Set 対象範囲 = .Range( BQ15:BV17 ) • • 'シート内にあるすべての図形 • For Each 図形 In .Shapes • • '図形の左上セルを取得 • Set 図形の左上 = 図形.TopLeftCell • • '図形の左上が男性の範囲にあるか • Set 重なり = Application.Intersect(図形の左上, 対象範囲) • If Not 重なり Is Nothing Then • '男性の範囲にある • 性別判定_男 = 男 • Exit Function • End If • • Next 図形 • • End With • End Function • Function 性別判定_女(シート番号 As Long) • Dim 図形 As Shape • Dim 対象範囲 As Range • Dim 図形の左上 As Range • Dim 重なり As Range • • Application.Volatile • • 性別判定_女 = • • With Worksheets(シート番号) • • '女性の範囲 • Set 対象範囲 = .Range( BY15:CD17 ) • • 'シート内にあるすべての図形 • For Each 図形 In .Shapes • • '図形の左上セルを取得 • Set 図形の左上 = 図形.TopLeftCell • • '図形の左上が男性の範囲にあるか • Set 重なり = Application.Intersect(図形の左上, 対象範囲) • If Not 重なり Is Nothing Then • '女性の範囲にある • 性別判定_女 = 女 • Exit Function • End If • • Next 図形 • • End With • End Function
#############################
