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

Results of 191 - 200 of about 37676 for IF (0.017 sec.)

[[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

[[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

[[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

[[20210711080125]] 1256: 『VBA コピーできない』（sima）
おはおようございます。一番下から三行目、コピーメソッドの Rangeが ... For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If C = 10 Then .Cells(i, "AH").Value = "LY" ElseIf C ... = 13 Then .Cells(i, "AH").Value = "TYA" End If Select Case True Case .Cells(i, "AB").Value = "REV ... "C").Value = "0801100" And WorksheetFunction.CountIf(.Parent.Worksheets(2).Range("A:A"), Cells(i, "B"). ... Value) > 0 Case Else If srcRNG Is Nothing Then Set srcRNG = Intersect(.Row ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202107/20210711080125.txt - [detail] - similar

[[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

[[20220929150026]] 1256: 『プルダウンリストの表示を大きくする方法』（jj）
Excelでプルダウンのリストを作成した時に、全体が ... f = ActiveCell.Validation.Formula1 On Error GoTo 0 If f = "" Then Exit Sub ContextMenu f End Sub '標準モ ... BarControl For Each Bar In Application.CommandBars If Bar.Name = "Cell" Then For Each c In Bar.Controls ... If c.Caption Like "□*" Then c.Delete Next End If Next If Len(Sw) = 0 Then Exit Sub Dim v For Each B ... ar In Application.CommandBars If Bar.Name = "Cell" Then With Bar.Controls For Each ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202209/20220929150026.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

[[20181213154414]] 1256: 『Changeイベント複数』（初心者）
Changeイベントを複数行いたいです。今は、 Private Sub Workshee ... m i As Long, j As Long, k As Long Dim sn As String If Target.Column <> 4 Then Exit Sub If Target.Row < 5 ... Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row If Cells(j, i - 1).Value <> "" Then Exit Sub Cells(j, ... i - 1).Value = "〇" だけなのですが、追加で If Target.Column <> 7 Then Exit Sub If Target.Row < 5 ... Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row If Cells(j, i).Value <> "" Then Exit Sub Cells(j, i). ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181213154414.txt - [detail] - similar

[[20050819230520]] 1256: 『複数の検索範囲から同数値の連続数によってセルを色分けする』（aki）
A B C D E F G H I J K L M N ... セル範囲A1:O5を選択して条件付き書式で条件1 =COUNTIF($A$1:$O$5,A1)>=5 パターンを赤に設定条件2 =COUNTIF ... ($A$1:$O$5,A1)=4 パターンを青に設定条件3 =COUNTIF($A$1:$O$5,A1)=3 パターンを黄に設定条件は3つまでし ... 5の複数の範囲を選択して条件付き書式で条件1 =COUNTIF($A$1:$D$5,A1)+COUNTIF($F$1:$I$5,F1)+COUNTIF($K$1:$ ... O$5,K1)>=5 パターンを赤に設定条件2 =COUNTIF($A$1:$D$5,A1)+COUNTIF($F$1:$I$5,F1)+COUNTIF($K$1:$ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050819230520.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

訪問者：カウンタ