検索memo

www.relief.jp

 

1 User

1 Pocket

入力規則のショートカットキーは？−Alt→D→L:Excel(エクセル)の使い方/キーボード操作

https://www.relief.jp/docs/003818.html

対象：Excel2002, Excel2003, Excel2007, Exc...

プロパティ一覧

エクセルの神髄

 

2 Users

9 Pockets

入力規則（Validation）｜VBA入門

https://excel-ubara.com/excelvba1/EXCELVBA426.html

VBAの入力規則はValidationオブジェクトになります。Validationオブジェクトを扱うには、RangeオブジェクトのValidationプロパティを使用します。入力規則は、シート上で設定しておいた方が良い場合が多いですが、マクロVBAで設定する必要も出てきます。

■指定した間の整数のみ入力可能にする
■日付の入力規則を設定する
■リストの値のみ入力可能にする
■IMEモードを設定する
■セルの入力規則を変更する

www.moug.net

 

9 Users

24 Pockets

セルの入力規則を設定する（Validationオブジェクト）：Excel VBA｜即効テクニック...

https://www.moug.net/tech/exvba/0050121.html

設定ダイアログ対比で丁寧な解説

侍エンジニアブログ

 

3 Posts

8 Pockets

【すぐ使える】VBAで入力規則を設定して作業を効率化しよう | 侍エンジニアブログ

https://www.sejuku.net/blog/89681

この記事では「 【すぐ使える】VBAで入力規則を設定して作業を効率化しよう 」といった内容について、誰でも理解できるように解説します。この記事を読めば、あなたの悩みが解決するだけじゃなく、新たな気付きも発見できることでしょう。お悩みの方はぜひご一読ください。

入力規則の設定を調べる

くうねるのエクセル教科書

【EXCEL：VBA】入力規則が設定されている全てのセルを取得したい

https://excel.kuuneruch.com/get-input-rules/

ExcelVBAを利用して「EXCELに設定されている入力規則を全て取得する」方法について説明します。この機能を利用すれば、入力規則が設定されているセル番地と設定されている内容を一瞬で取得できます。

入力設定の有無を判定

助け合いの心でつながるQ&AサービスOKWAVE

エクセルVBAで入力規則の有無を取得 - OKWAVE

https://okwave.jp/qa/q9412359.html

エクセル2010です。 VBAで特定のセル、たとえばA1セルに入力規則が設定されているかどうか取得したいのです。 セルにVBAで設定することはできるのですが、すでに設定されているかどうかを取得できずに..

Sub 自動記録_入力規則IMEオフ_コメント()
    
    With Selection.Validation
        .Delete '入力規則を削除
        '入力規則の追加
        .Add Type:=xlValidateInputOnly, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween
        'Type入力規則の種類
        'AlertStyle入力規則でのエラーのスタイル
        'Operator入力規則の演算子
        .IgnoreBlank = True 'True空白値の入力許可
        .InCellDropdown = True  'Trueドロップダウンリスト表示
        .InputTitle = ""    '入力規則ダイアログボックスのタイトル
        .ErrorTitle = ""    '入力規則で発生するエラーダイアログボックスのタイトル
        .InputMessage = ""  '入力規則でのメッセージ
        .ErrorMessage = ""  'エラー時のメッセージ
        .IMEMode = xlIMEModeOff '日本語入力をIMEオフ（英語モード）に設定
        .ShowInput = True   'Trueセルを選択するとメッセージ表示
        .ShowError = True   'Tureなら無効なデータ入力時にエラーメッセージ表示
    End With
    
End Sub

Sub Sample()
    Name "C:\Work\Sample.txt" As "C:\Work\Test.txt"
End Sub

officetanaka.net

 

14 Users

45 Pockets

Office TANAKA - Excel VBA Tips[VBAでファイルの操作]

http://officetanaka.net/excel/vba/tips/tips91.htm

Dim コピー元シート名
    コピー元シート名 = "_"

    'シートAを先頭にコピー
    Worksheets(コピー元シート名).Copy before:=Worksheets(1)
    
    'シートAを末尾にコピー
    Worksheets(コピー元シート名).Copy after:=Worksheets(Worksheets.Count)

    'シートに名前を付ける
    ActiveSheet.Name = Format(Date, "mmdd") & "_" & Format(Time, "hhmm")

UX MILK

 

5 Users

20 Pockets

Excel VBAでシートをコピーする：Copy

https://uxmilk.jp/47978

VBA でシートをコピーするときは、Copy メソッドを使用します。ここでは、Copy メソッドの使い方について説明します。 Copy メソッドの使い方 Cop…

' ブックのフォルダまでのパス
msgbox ThisWorkbook.Path

' ブックのファイル名までのパス
msgbox ThisWorkbook.FullName

excel.style-mods.net

 

1 User

17 Pockets

【Excel VBA サンプル集】ブックのパスを取得する - ExcelVBA@Workshop

http://excel.style-mods.net/tips_vba/tips_vba_4_09.htm

ブックのパスを取得する(ブックの操作)。Excel VBA サンプル集。Excel VBAの書き方から、サンプル集やリファレンス集を掲載しています。

Const str削除文字列 As String = "削除文字列"

    Selection.Replace What:=str削除文字列, Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

構文  Object.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte)

 設定項目    内容
 Object      Rangeオブジェクト
 What　      検索するデータを指定します [省略不可]
 Replacement 検索したデータを置き換える文字列を指定します [省略不可]
 LookAt　    完全に同一なセルだけを検索（xlWhole）、
             一部分でも一致するセルの検索（xlPart)[省略可能]
 SeachOrder　検索方向を指定します。列方向に検索する(xlByColumns)、
             行方向に検索する（xlByRows)[省略可能]
 MatchCase　 大文字と小文字を区別する(True)、区別しない(False)[省略可能]
 MatchByte　 半角と全角を区別する(True)、区別しない(False)[省略可能]

www.moug.net

 

4 Users

6 Pockets

Excel VBA を学ぶなら moug モーグ | 即効テクニック | セルの内容を置き換える(Re...

https://www.moug.net/tech/exvba/0050117.html

replaceFormat 検索条件に一致するセルの書式を設定するときにTrueを設定

ExcelWork.info

 

1 Pocket

セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

https://excelwork.info/excel/cellreplacereplaceformat/

セルの値の置換と書式設定 検索条件に一致するセルの書式を設定するには、まず、Application オブジェク…

Function 逆順(単セル As Range)
    
    Dim i As Integer
    If 単セル.Count = 1 Then
        For i = Len(単セル) To 1 Step -1
            逆順 = 逆順 & Mid(単セル, i, 1)
        Next i
    Else
        逆順 = "引数は1つのセルを選んでね"
    End If
    
End Function

Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub

Sub r折り返し()

    If ActiveCell.WrapText = False Then
        Selection.WrapText = True
        Selection.EntireRow.AutoFit
    Else
        Selection.WrapText = False
    End If

End Sub

A1形式で数式の設定/取得
ActiveCell.Formula = “=A1+B1”

R1C1形式で数式の設定/取得
絶対参照
ActiveCell.FormulaR1C1 = “=R1C1+R1C2”
相対参照
ActiveCell.FormulaR1C1 = “=RC[-2]+RC[-1]”

www.moug.net

 

16 Users

35 Pockets

セルに数式を入力/取得する(Formula/FormulaR1C1プロパティ)：Excel VBA｜即効テク...

https://www.moug.net/tech/exvba/0050098.html

Function jointText(ParamArray 範囲())
    
    Dim i As Long
    Dim cell As Range
    Const 区切り文字 As String = "-"
    
    For i = 0 To UBound(範囲)
        If 範囲(i).Count > 1 Then
            For Each cell In 範囲(i)
                jointText = jointText & 区切り文字 & cell
            Next cell
        Else
            jointText = jointText & 区切り文字 & 範囲(i)  '2個目以降
        End If
    Next i
    jointText = Right(jointText, Len(jointText) - Len(区切り文字))
    
End Function

※省略可能なOptionalは使えない

stabucky.com

 

1 User

3 Pockets

VBAで引数の数を可変にする | You Look Too Cool

https://stabucky.com/wp/archives/3431

VBAのユーザー定義関数で引数の数が一定でない場合があります。Function kansu(a, b, c)[/

dev-clips.com

 

1 Pocket

不定の引数を定義するParamArrayキーワード

http://dev-clips.com/clip/vba/paramarray-keyword/

Excel ワークシート関数のSUM関数やMAX関数は可変の引数を渡すことができます。 VBA のプロシージャでも同じように不定の引数を扱う場合は ParamArrayキーワード を使用します。 今回はこの ParamArrayキーワード