[Excel]の記事一覧 | Excelとか・・・

Excel VBA　画面表示倍率５％ずつ拡大/縮小

画面表示倍率を５％単位で拡大/縮小Sub 画面倍率5パーセント拡大()　Dim z As Long　　z = ActiveWindow.Zoom　　ActiveWindow.Zoom = z + 5End Sub　　==========　　Sub 画面倍率5パーセント縮小()　Dim z As Long　z = ActiveWindow.Zoom　ActiveWindow.Zoom = z - 5 　End Sub[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/16

コメント(0)

Excel VBA 空白セル/空白セル以外でフィルタリング

AutoFilter が A列から設置してある場合Sub AutoFilter固定列_空白セルで絞込み()　Dim c As Long　c = Selection.Column　Range("A1").AutoFilter Field:=c, Criteria1:="="End Sub 空白セル以外で絞り込む場合Range("A1").AutoFilter Field:=c, Criteria1:="<>" ========== どんな表にも適用する場合Sub AutoFilter空白セル選択()　Dim AFAdrss As String　　Dim FirstC As String　　Dim CrntField As String　Dim c As String　　Dim FirstRng As String　　Dim p As Variant　　If ActiveSheet.AutoFilterMode = False Then　　End　End If　With ActiveSheet.AutoFilter.Range　　FirstC = .Column　　　AFAdrss = .Address　　End With　c = Selection.Column - FirstC + 1　　p = Split(AFAdrss, ":")　　FirstRng = p(0)　Range(FirstRng).AutoFilter Field:=c, Criteria1:="="End Sub空白セル以外で絞り込む場合　Range(FirstRng).AutoFilter Field:=c, Criteria1:="<>" [引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/15

コメント(0)

Excel VBA　ウインドウ枠の固定、解除

ウインドウ枠の固定　ActiveWindow.FreezePanes = Trueウインドウ枠の解除　ActiveWindow.FreezePanes = False＝＝＝＝＝＝＝＝＝＝マクロSub ウインドウ枠の固定解除（）　If ActiveWindow.FreezePanes = False then　　　ActiveWindow.FreezePanes = True Else　　　ActiveWindow.FreezePanes = FalseEnd SubEnd Subこのマクロをボタンやリボンに登録すれば、クリックするたびに選択したセルの位置にウインドウ枠を「固定」「解除」してくれる[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/14

コメント(0)

Excel 書式を判定する

書式を判定するSub 書式いろいろ判定()　'取り消し線の判定　If Selection.Font.Strikethrough = True Then　　　MsgBox "取り消し線が付いています"　Else　　　MsgBox "取り消し線は付いていません"　End If　'文字色有無の判定　If Selection.Font.ColorIndex = xlAutomatic Then　　　MsgBox "文字の色は自動（黒）です"　Else　　　MsgBox "文字に色が付いていません"　End If　'背景色有無の判定　If Selection.Interior.Pattern = xlNone Then　　　MsgBox "背景色が付いていません"　Else　　　MsgBox "背景色が付いています"　End If　'太字の有無の判定　　If Selection.Font.Bold = True Then　　　MsgBox "太字です"　Else　　　MsgBox "太字ではありません"　End If　'斜体（イタリック）有無の判定　If Selection.Font.Italic= True Then　　　MsgBox "斜体です"　Else　　　MsgBox "斜体ではありません"　End IfEnd Sub[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/09

コメント(0)

Excel 通番を入力する

通番を入力する方法１．手入力１０未満の通番だったら無理に Excel の機能や関数やマクロを使うよりも、ひとつづつ入力したほうが早い。==========２．黒ハンドルをドラッグセルの右下にマウスを合わせて黒ハンドルにして、そのままドラッグする。マウスを離したら小さい正方形のメニューから「連続データ」を選択すると通番が入力される。==========３．黒ハンドルをダブルクリック既に入力されているデータの隣に通番をつける場合、黒ハンドルをダブルクリックするとデータの途切れるところまでコピーされる。==========４．連続データ作成通番を入力したいセルを選択してから、ホームタブ　＞　フィル　＞　連続データの作成　から通番を入力することができる。 ==========５．関数COUNTA関数=IF(C2="","",COUNTA($C$2:C2))もし、セルC2が空欄だったら空欄にして、空欄でなければセルC2からC2の範囲のデータの個数を計算する。　==========COUNTIF関数=IF(D2="Y",COUNTIF($D$2:D2,"Y"),"")D列の値が、「Y」(Yes) の場合に、通番を振る。　[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/08

コメント(0)

STOPでループを一時停止させる

STOP を使ってループを指定したところで一時停止させるSub StopでForLoopを一時停止() Dim r As Long For r = 1 To 10000 If r = 53215 Then Stop If Cells(r, 1) = "" Then Cells(r, 1).Interior.ColorIndex = 15 End If Next rEnd Sub10,000回中の53,215回目で一時停止させる。ここからF8でステップ実行してDebug する。[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/06

コメント(0)

Excel　色の付いたセルを数える

Subtotal関数 + フィルタ=SUBTOTAL(3,J5:J12)Subtotal関数を任意のセルに記述し、該当の列をフィルタリングする=====検索の機能を使う色のみを設定し、「すべて検索」をすると、左下のヒット数が表示される=====色が付いていること別のセルで教える色が付いているということは、何かしらの条件で色が付いているはず。その条件に当てはまる場合、「1」を立てる=====VBA以下の記述と、For Loop などで該当のセルを数えるFont.ColorIndexInterior.ColorIndexFont.ColorInterior.ColorRBG[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/05

コメント(0)

Excel 最終行まで選択、コピー、切り取り

最終行まで選択してコピーする※前提：コピーしたい列の先頭の行を選択しておくSub 列コピー()　Dim r As Long　'行番号を格納　Dim c As Long　'列番号を格納　Dim LastR As Long　'最終行を格納　r = Selection.Row　'選択したセルの行番号を取得　c = Selection.Column　'選択したセルの列番号を取得　LastR = Cells(Rows.Count, c).End(xlUp).Row　'選択したセルの最終行を取得　Range(Cells(r, c), Cells(LastR, c)).Copy　'コピーするEnd Sub最後の一文は切り取りでも良いし、記述しなくても良い[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/02

コメント(0)

3つのセルを比較する

３つのセルが同じか判定する=IF(AND(EXACT(A2,B2)=TRUE,EXACT(A2,C2)=TRUE,EXACT(B2,C2)=TRUE),"3つ同じ","3つは同じでない")＝＝＝＝＝どこのセルが同じか判定する=IF(AND(EXACT(A1,B1)=TRUE,EXACT(A1,C1)=TRUE,EXACT(B1,C1)=TRUE),"3つ同じ",IF(EXACT(A1,B1)=TRUE,"AとBが同じ",IF(EXACT(A1,C1)=TRUE,"AとCが同じ",IF(EXACT(B1,C1)=TRUE,"BとCが同じ","全部違う"))))[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/02/01

コメント(0)

【Excel】Address & Replace

Address指定したセル番地を取得 MsgBox Selection.Address=====ReplaceReplace(対象の文字列、検索する文字列、置換する文字列） MsgBox Replace(Selection.Address, "$", "") [引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。

2024/01/31

コメント(0)

Excel 2つのセルを比較

イコールで比較セルに=A1=B1と記述するだけ。大文字小文字は判別できないので、同じものとみられる。==========Exact関数Exact(text1,text2)=Excact(A1,B1)完全一致かどうかを判断するので、大文字小文字は別物とみられる。[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。LED 懐中電灯強力充電式ワークライトハンドライト小型 USB充電充電式 ledライト防災 usb ズームマグネット磁石夜釣り登山防水アウトドア楽天で購入300ルーメン　USB充電　4つの点灯モードクーポン利用で最安880円！＼ランキング1位／【1年保証】UVカット率100% CE認証自転車ヘルメット自転車ヘルメット大人レディース帽子おしゃれ女性男性ハット型ヘルメットバケットハット大人用子供通勤通学街乗り自転車用ヘルメット UV対策あご紐付き楽天で購入おじさん（私のこと）も使用している自転車用ヘルメット。

2024/01/26

コメント(0)

VLOOKUPの逆をやりたい

Index関数Index（配列, 行番号, [列番号]）=Index(A1:F6,4,3)結果は「い３」＝＝＝＝＝＝＝＝＝＝Match関数Match（検索値, 検索の範囲, [照合の種類]）=Match(3,A1:A6, 0) 結果は「４」（つまり上から４番目）＝＝＝＝＝＝＝＝＝＝Index関数　+　Match関数この２つの関数を組み合わせるとVLookup と同じ結果を取得できる。=Index(A1:F6, Match(3,A1:A6,0), 3)※ Match関数で Index関数の行番号を検索している。＝＝＝＝＝＝＝＝＝＝VLOOKUPで逆方向を検索するような使用例=Index(A1:D6, Match(3, D1:D6,0), 1)　結果「日付３」※ Match関数で Index関数の行番号を検索している。 [引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログの簡易版です。飾れるぶら下がり健康器 RelaxHang 耐荷重120kg [保証最大500日] 健康器具懸垂バー懸垂ぶら下がり健康器懸垂マシン RELANESS リラネスハンガーラックフィットネスストレッチトレーニングダイエット RE101楽天で購入筋トレしたいけど横になるのがちょっと面倒・・・立ったまま腕もお腹も背中も鍛えることができる　これ欲しい・・・

2024/01/24

コメント(0)

改行コード

３文字目と４文字目の間に改行コードを挿入するマクロ。**********************************************Sub 改行コードtest()　Range("c2") = Left(Range("b2"), 3) & Chr(10) & Mid(Range("b2"), 4)　Range("c3") = Left(Range("b2"), 3) & Chr(13) & Mid(Range("b2"), 4)　Range("c4") = Left(Range("b2"), 3) & vbCr & Mid(Range("b2"), 4)　Range("c5") = Left(Range("b2"), 3) & vbLf & Mid(Range("b2"), 4)　Range("c6") = Left(Range("b2"), 3) & vbCrLf & Mid(Range("b2"), 4)End Sub**********************************************選択されているセルの改行コードを削除するマクロ。**********************************************Sub 改行コード削除()　Selection.Replace What:="" & Chr(10) & "", Replacement:=""　Selection.Replace What:="" & Chr(13) & "", Replacement:=""　Selection.Replace What:="" & vbCr & "", Replacement:=""　Selection.Replace What:="" & vbLf & "", Replacement:=""　Selection.Replace What:="" & vbCrLf & "", Replacement:=""End Sub**********************************************[引用元]Excelのこととか色々※この日記は、私のメインブログ「Excelのこととか色々」で公開したブログのコードのみを記載したものです。(アウトレット)エレコムトラックボールマウス／親指／5ボタン／有線 M-XT2URBK ブラック楽天で購入デスクに据え置きできます。有線なので、電池の交換不要。

2024/01/23

コメント(0)