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

Results of 311 - 320 of about 37700 for IF (0.022 sec.)

[[20131014154725]] 1228: 『ログを集計するマクロを作りたい』（ぐりむ）
お久しぶりです。前回の [[20130918095939]] でウッシ ... Title = "フォルダを選択" .AllowMultiSelect = False If .Show = -1 Then fl = .SelectedItems(1) Else Exit S ... ub End If End With folN = Dir(fl, vbDirectory) On Error Resu ... fName = Dir(fl & "¥*.log") Do While Len(fName) > 0 If sh.Range("A" & Rows.Count).End(xlUp).Row < 3 Then ... = sh.Range("A" & Rows.Count).End(xlUp).Row + 1 End If Set bk = Workbooks.Open(fl & "¥" & fName, False, T ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201310/20131014154725.txt - [detail] - similar

[[20060719181322]] 1228: 『マクロ中の数値を変更したいAF3→AF59のように』（かず）
もう1つ質問があります。先程1つのマクロを ... sheet, x as long for each ws in worksheets with ws if len(.cells(7 + x,"ch"))+len(9+x,"ch"))+len(11+x,"c ... 5+x,"ch")) >0 Then コード若しくはsubroutine名 end if end with x = x + 56 next (seiya) ---- この式をあま ... す。 ---- そうでしたか。これって、例の続きですよね? If Range("ch7") <> "" Or Range("ch9") <>"" Or.... の部 ... 分を変更しただけですが、試してみましたか? If Range("ch" & 7 + x) <>"" のように書き換えられますが ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200607/20060719181322.txt - [detail] - similar

[[20101026122039]] 1228: 『封筒印刷』（クミクミ）
2007 XP 以前こちらで印刷範囲のマクロを教えていただき、使用させていただい ... s Long With ActiveSheet For i = 2179 To 1 Step -22 If .Range("O" & i).Value <> "" Then .PageSetup.PrintA ... rea = "A1:P" & i + 21 Exit For End If Next i End With End Sub ↑が長3封筒の場合で ↓が角2封 ... s Long With ActiveSheet For i = 1328 To 1 Step -13 If .Range("O" & i).Value <> "" Then .PageSetup.PrintA ... rea = "A1:U" & i + 12 Exit For End If Next i End With End Sub 現在は2つのブックに分けて使 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201010/20101026122039.txt - [detail] - similar

[[20211213141600]] 1228: 『期限切れの名称表示および日付の更新』（マカロニ）
こんにちは。どうにもこうにも上手く動作ができ ... To Lastrow1 '15行目が見出しで16行目から一覧が表示 If Cells(i, 8) >= Max_Score Then 'もしHの列の日付がto ... ow '指定の期限が切れている場合、変数にデータを格納 If Cells(i, 8) < TargetDay Then 期限 = 期限 & Cells(i ... , 1) End If Next i If 期限 = "" Then MsgBox "期限切れはありませ ... ん。" Unload Me Else 【条件コード】 end if end sub 1,期限切れの名称を”期限”に格納し、ラベルに ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202112/20211213141600.txt - [detail] - similar

[[20120324215647]] 1228: 『エラー』（kk）
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address <> ... "$A$1" Then Exit Sub If Target.Value = "" Then Exit Sub ActiveSheet.Protec ... rivate Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D1:E1")) Is Nothing T ... hen If Range("D1").Value = Range("E1").Value Then Me.Unpr ... eSelection = xlUnlockedCells Else Me.Unprotect End If End If End Sub に組み込みたいのですが?出来ますか?( ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201203/20120324215647.txt - [detail] - similar

[[20100419040805]] 1228: 『コードの整理??』（いまむら）
以下2つのマクロをもっと簡潔にしたいです。良い方法があれば教えてく ... _ Range("Z56").Select Selection.FormulaArray = _ "=IF(ISERROR(LARGE(IF(Sheet1!R3C5:R1002C5=R10C53,ROW(R1 ... " Range("Z57").Select Selection.FormulaArray = _ "=IF(ISERROR(LARGE(IF(Sheet1!R3C5:R1002C5=R10C53,ROW(R1 ... " Range("Z58").Select Selection.FormulaArray = _ "=IF(ISERROR(LARGE(IF(Sheet1!R3C5:R1002C5=R10C53,ROW(R1 ... " Range("Z59").Select Selection.FormulaArray = _ "=IF(ISERROR(LARGE(IF(Sheet1!R3C5:R1002C5=R10C53,ROW(R1 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201004/20100419040805.txt - [detail] - similar

[[20080711095826]] 1228: 『英数カナを区別して全半変換する』（みどりむし）
（1）カナは全角のまま英数のみを半角（2）カナは ... For LT = 1 To L t = Mid(文字列, LT, 1) c = Asc(t) If c < -32000 Then t = Application.Asc(t) Tx = Tx & t ... For LT = 1 To L t = Mid(文字列, LT, 1) c = Asc(t) If c < -32000 Then t = StrConv(t, vbWide) Tx = Tx & t ... r, Mtxt As String Dim x, j, k Application.Volatile If tp < 1 Or 4 < tp Then jac = "" * 1 Else Select Cas ... ("VBScript.RegEXP") .Pattern = "¥w" .Global = True If .Test(StrConv(Mtxt, vbNarrow)) Then Mtxt = StrConv ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080711095826.txt - [detail] - similar

[[20160605173208]] 1228: 『VBAで2つのシートを比較する際に、コメントの内容と、背景色の相違を取り出したい』（flower89）
前任 ... t_col As Integer ' データの存在する最大列番号 Dim diff_num As Integer ' 相違のあったセルの数 Dim name1 A ... s String ' 新しいウィンドウを開いたときの名前 Dim diff_flg As Boolean ' 1行中の相違フラグ Dim sheet_name ... ータシートの存在チェック Set WS1 = ActiveSheet.Next If WS1 Is Nothing Then MsgBox "比較するシートを2つ追加 ... してください", vbExclamation Exit Sub End If Set WS2 = WS1.Next If WS2 Is Nothing Then MsgBox " ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201606/20160605173208.txt - [detail] - similar

[[20050520165428]] 1228: 『数式が変わらないようにするには』（TOYO）
以前にも質問させていただいたのですが、解決できていない ... うな表があり、DとE列にはポイントを計算させる為に D2=IF(B3=B2,D3+1,IF(B2="全検",1,IF(B2="なみ",9,19))) E2= ... IF(C3=C2,E3+1,IF(C2="全検",1,IF(C2="なみ",9,19))) といった教えていた ... に変わってしまい困っております。実際にはD2の式が D2=IF(B4=B3,D3+1,IF(B3="全検",1,IF(B3="なみ",9,19))) とな ... うにして、未入力の場合に空欄にしておきます。 D2は、=IF(B2="","",IF(B3=B2,D3+1,IF(B2="全検",1,IF(B2="なみ" ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050520165428.txt - [detail] - similar

[[20080713193652]] 1228: 『コマンドボタンで他シート保護』（taka）
いつもお世話になっています。過去ログで自分の知りたいコ ... m MyPass1 As String Const MyPass As String = "123" If ActiveSheet.ProtectContents = True Then MyPass1 = ... prompt:="パスワードを入力してください。", Type:=2) If MyPass1 = "False" Then Exit Sub If MyPass1 <> MyPa ... = MsgBox("WorkSheetのロックを解除します", vbYesNo) If Ans = vbYes Then ActiveSheet.Unprotect Password:=M ... AutoSize = True End With MsgBox "解除しました" End If End If Else Ans = MsgBox("WorkSheetをロックします" ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080713193652.txt - [detail] - similar

訪問者：カウンタ