エクセルの学校：全文検索：Hyper Estraier： IF

Results of 201 - 210 of about 37689 for IF (0.017 sec.)

[[20081119075059]] 1256: 『ファイルを検索してマクロ実行』（ミンミンゼミ）
同一フォルダ内に,A,B,Cの3つのファイルがあります ... For Each ff In .GetFolder(ThisWorkbook.Path).Files If InStr(1, ff.Name, ".xls") > 0 Then Select Case ff. ... .xls" Case Else flg = True Exit For End Select End If Next End With If flg Then Rem 続きのマクロを記載。 ... End If End Sub ---- どうもありがとうございます。それで,い ... For Each ff In .GetFolder(ThisWorkbook.Path).Files If InStr(1, ff.Name, ".xls") > 0 Then Select Case ff. ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200811/20081119075059.txt - [detail] - similar

[[20090918090713]] 1256: 『VBA関係』（VBA初心者）
セルA1=1なら”おはよう”、2なら”こんにちわ”、3なら”こんばんわ” とメッセー ... eet_Change(ByVal Target As Range) Dim x As Variant If Target.Address() <> "$A$1" Then Exit Sub x = Array ... ("おはよう", "こんにちわ", "こんばんわ") If Target.Value = 1 Or Target.Value = 2 Or Target.Val ... e - 1) Else MsgBox "1,2,3以外が入力されました" End If End Sub ---- 衝突です。。。書いちゃいます・・・ Sh ... rivate Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Select Case Target.Va ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090918090713.txt - [detail] - similar

[[20061024211146]] 1256: 『重複を検索表示』（SL567）
1つのフォルダーの中にBooK1:BooK2:BooK3:BooK4:BooK5の5個のシートがあり ... K4でO列で入力したものをBooK5のA列に貼り付けて=COUNTIF(A:A,A1000)>1の条件書式で行っています。時間が掛かる ... t("Scripting.Dictionary") For Each wb In Workbooks If wb.Name = "Book1.xls" Then flg1 = False If wb.Name ... = "Book2.xls" Then flg2 = False If wb.Name = "Book3.xls" Then flg3 = False If wb.Name ... = "Book4.xls" Then flg4 = False Next If flg1 Then Workbooks.Open ThisWorkbook.Path & "¥Boo ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200610/20061024211146.txt - [detail] - similar

[[20220702122213]] 1256: 『IFを使った複数条件の考え方』（ユン）
初めまして。 VBAの勉強をしていて、IFの複数条件について理解 ... ります。参考れいを見ている中で（例） Sub Lesson1() If Range("A1") >= 0 Then If Range("A1") < 10 Then Msg ... "0〜10未満です" Else MsgBox "10以上です" End If Else MsgBox "0未満です" End If End Sub ーーーーー ... 上記の場合 Sub Lesson1() If Range("A1") >= 0 Then If Range("A1") < 10 Then Msg ... おかしくなってしまう、というのも理解できるのですが… IF複数条件付で検索してもよく理解できなかったため質問さ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202207/20220702122213.txt - [detail] - similar

[[20070129190214]] 1256: 『顧客名簿の作成』（のだ）
今まで手書きしていた顧客名簿をパソコンで管理したく、名簿にある郵便番 ... "" Rex.Pattern = "^(大阪府|京都府|東京都|北海道)" If Rex.test(data) Then sp_data = Rex.Execute(data)(0) ... Else Rex.Pattern = "(^..|神奈川|和歌山|鹿児島)県" If Rex.test(data) Then sp_data = Rex.Execute(data)(0) ... End If End If fstdata = sp_data mid_cnt = Len(fstdata) ge ... n + 1, get_data, "市") gun = InStr(get_data, "郡") If n <> 0 Then If city <> 0 And city < 6 Then Rex.Pat ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070129190214.txt - [detail] - similar

[[20110906101143]] 1256: 『CSV出力について』（九九）
Excel2003、WindowsXP マクロにて以下の条件でCSV形式で出力可能でしょう ... ("A" & Rows.Count).End(xlUp).Row ¥ 5 Workbooks.Add If z = 0 Then z = 1 For i = 1 To z x = (i - 1) * 5 + ... .Range("E1:E" & z) '重複カウント .Formula = "=COUNTIF(D$1:D1,D1)" .Value = .Value End With 'フィルター処 ... 理用にタイトル行セット .Rows("1:1").Insert Shift:=xlDown .Range("A1:F1").Value = Array("A", "B", " ... トメンテナンス For Each c In .Range("A2").Resize(z) If c.Offset(, 4).Value >= 6 Then c.Offset(, 4).Value ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201109/20110906101143.txt - [detail] - similar

[[20060512234340]] 1256: 『増減簿』（わんばんこ）
1 A B C D 2 みかん 100 3 りんご 50 4 みかん 99 5 上記のような表がありま ... せん。お教えください。 ---- 長すぎるかな〜^^; B5に =IF(A5="","",INDEX($A$1:$D4,MAX(IF($A$1:$D4=A5,ROW($A$ ... 1:$D4))),MATCH(A5,INDIRECT(MAX(IF($A$1:$D4=A5,ROW($A$1:$D4)))&":"&MAX(IF($A$1:$D4=A5 ... ,ROW($A$1:$D4)))),0)+1)+1) D5に =IF(C5="","",INDEX($A$1:$D4,MAX(IF($A$1:$D4=C5,ROW($A$ ... 1:$D4))),MATCH(C5,INDIRECT(MAX(IF($A$1:$D4=C5,ROW($A$1:$D4)))&":"&MAX(IF($A$1:$D4=C5 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200605/20060512234340.txt - [detail] - similar

[[20170202151355]] 1256: 『勤務表当直5人ランダムしたいです、、助けてください、、』（SinNeo）
勤務表を作成してますが、例え ... rivate Sub Worksheet_Change(ByVal target As Range) If target.Count > 1 Then Exit Sub If target.Address < ... > "$A$1" Then Exit Sub If target.Value Like "*[!1-9]*" Then data = Val(StrCo ... nv(target, vbNarrow)) Call macro(data, target) End If End Sub 標準モジュールもコード表 Sub macro(data, t ... 12 days = 31 Case 4, 6, 9, 11 days = 30 Case Else If Year(Now) Mod 4 = 0 Then days = 29 Else days = 28 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201702/20170202151355.txt - [detail] - similar

[[20070726001758]] 1256: 『この数式は短くなりますでしょうか?』（たいへい）
教えてください。下記数式は短く出来るでしょうか ... セルには間違い以外同じ数字を入力しません。（1〜55） =IF(H$7=J$7,A$7,IF(H$29=J$7,A$29,IF(H$51=J$7,A$51,IF(H ... $73=J$7,A$73,IF (H$95=J$7,A$95,IF(H$139=J$7,A$139,IF(H$161=J$7,A$1 ... 61,IF(H$183=J$7,A$183)+IF (H$205=J$7,A$205)+IF(H$227=J$7 ... ,A$227)+IF(H$249=J$7,A$249)+IF(H$271=J$7,A$271) +IF(H$293=J$7 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200707/20070726001758.txt - [detail] - similar

[[20160315095229]] 1256: 『IF文について』（フェンダー）
'1のコードが"04"で 'Bが"01"の場合 '実行結果を '"あ"としたいのです ... 4" A = "01" B = "01" '1111111111111111111111111111 If コード = "04" And B = "01" Then tmp = "あ" ElseIf ... コード = "04" And B = "02" Then tmp = "い" ElseIf コード = "04" And B = "03" Then tmp = "う" Else tm ... p = " " End If '2222222222222222222222 Select Case A Case "01" If ... ード <> "08" Or コード <> "09") Then tmp = "え" End If Case "02" If (コード <> "04" Or コード <> "08" Or ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201603/20160315095229.txt - [detail] - similar

訪問者：カウンタ