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

Results of 291 - 300 of about 37697 for IF (0.022 sec.)

[[20040916174313]] 1234: 『ループの終了条件が分かりません』（まいうー）
勤務締が「当月1日から当月末」から「当月21日から次 ... く空白セル（1つ目）でマクロ実行が中断されています。 If ActiveCell = Worksheets("入力用紙").Range("休日") ... と良いんですよね。 Dim i As Integer For i = 1 to 31 IF IsDate(Cells(i,2)) = True Then '処理記述 Else End ... 雅子似） Sub 日付文字色変更() Dim i As Long i = 1 Do If ActiveCell.Value <> "" Then If ActiveCell.Value = ... alue) = 1 Then Cells(i, 3).Font.ColorIndex = 3 End If End If i = i + 1 Cells(i, 3).Select Loop Until Day ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200409/20040916174313.txt - [detail] - similar

[[20210907085806]] 1234: 『特定の文字・色がついたセルのシート名を表示させたい』（mammie）
駐車場の管理簿を作成しています。 ... arContents For Each sht In ThisWorkbook.Worksheets If sht.Name <> "まとめ" Then Set r = Intersect(sht.Ra ... egion, sht.Range("A1").CurrentRegion.Offset(1, 1)) If Not r Is Nothing Then If WorksheetFunction.CountA( ... heets("まとめ").Rows(1).Find(c.Value, , , xlWhole) If rr Is Nothing Then Set rr = Sheets("まとめ").Cells ... ).End(xlToLeft).Offset(, 1) rr.Value = c.Value End If If c.EntireColumn.Cells(1).Value = Date Then If rr ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202109/20210907085806.txt - [detail] - similar

[[20100407220157]] 1234: 『セルの色だけを移動するマクロ』（kei）
はじめましてよろしくおねがいいたします。アクティブセルの ... CLU = ActiveCell.Offset(-1, 0).Interior.ColorIndex If CLU = -4142 Then ActiveCell.Interior.ColorIndex = ... rIndex = CL ActiveCell.Offset(-1, 0).Activate Else If CLU <> -4142 Then MsgBox "移動先が塗りつぶされてい ... るため、移動できませんでした。" End If End If End Sub 上記のマクロに3つの機能を追加したい ... Target As Range, ByVal i As Long, ByVal j As Long) If Target.Offset(i, j).Interior.ColorIndex = -4142 Th ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201004/20100407220157.txt - [detail] - similar

[[20150304134250]] 1234: 『数式下フィルマクロで質問です』（kou）
以下の通り数式を下にフィルしていますが、途中不規則に複数 ... ます。 Sub test() Range("G5:G3100").FormulaR1C1 = "=IF(RC[6]="""","""",IF(RC[-1]=1,"""",IFERROR(ROUNDDOWN ... )*-1+4),"""")))" Range("H5:H3100").FormulaR1C1 = "=IF(RC[-2]=1,RC[3],IF(ISTEXT(RC[5]),RC[5],IF(RC[-1]="" ... 2]*RC[-1],0))))" Range("K5:K3100").FormulaR1C1 = "=IF(RC[2]="""","""",IF(RC[4]="""",RC[2],ROUNDDOWN(RC[4 ... [4]),0)*-1+4)))" Range("O5:O3100").FormulaR1C1 = "=IF(RC[-1]="""","""",ROUND(RC[-2]*RC[-1],-3))" End Sub ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150304134250.txt - [detail] - similar

[[20110816204342]] 1234: 『並び替えが難しい』（sala）
ふつかほど考えていますが、とっても難しくて思考回路が切断中・・・つ ... れぞれがA1:E5、A11:E15、A21:E25にあるとすると、 G1 =IF(A1="","",OFFSET($N$1,A1-1,0)) として、G1を G1:K25 ... ぞれがA1:E5、A11:E15、A21:E25にあるとすると、 > >G1 =IF(A1="","",OFFSET($N$1,A1-1,0)) > >として、G1を G1:K ... ) As Long For i = 0 To 24 numArray(i) = i + 1 Next If Range("A1").Value <> "" Then Range("A19:E24").Inse ... rt shift:=xlDown Range("A7:E24").Value = Range("A1:E18").V ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201108/20110816204342.txt - [detail] - similar

[[20090904141744]] 1234: 『IF AND関数について』（SAKURA）
実績から点数をつけるために、IF AND関数を使ったのですが、例えば ... の計算式を教えてください。自分でしてみましたが、↓↓ =IF(D5="","",IF(D5>=0.71,0,IF(AND(D5<=0.7,D5>=0.61),1, ... IF(AND(D5<=0.6,D5>=0.51),2,IF(AND(D5<=0.5,D5>=0.41),3,IF(AND(D5<=0.4,D5>=0.31),4 ... ,IF(AND(D5<=0.3,D5>=0),5,0))))))) としたとき、実績が30 ... 関数式に何を足したら正しく計算できるでしょうか。またIF AND以外に違う方法がありましたら教えてください。 -- ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200909/20090904141744.txt - [detail] - similar

[[20110225102804]] 1234: 『ファイル名の変わるファイル指定』（初心者なーくん）いつもお世話になります。教えて下さい。例え ... CheckedFile As String Dim Ans As Long With Target If .Column = 6 Or .Column = 8 Then Select Case .Value ... nd Select CheckedFile = Dir(myFolder & myFileName) If CheckedFile = "" Then MsgBox "該当ファイルがありま ... se vbCancel 'キャンセルの場合の処理 End Select End If End If End With （momo） ---- （momo）さん、いつも ... le As String, FoundPath As String) Dim f As Object If FoundPath = "" Then With CreateObject("Scripting.F ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201102/20110225102804.txt - [detail] - similar

[[20060904083757]] 1234: 『IFで混乱しています』（コチ）
出勤明細を作っているのですが、 D6へ D10が0.5なら"半休"、1.0なら"有 ... と入力したいと色々やってみましたがうまくいきません IF(OR(D10="",D11="","日"),IF(OR(D10=1,D11=1,"休暇",IF ... (OR(D10=0.5,D11=0.5,"半休",IF(OR(D10=0.5,D11=0.5,"半代",IF(OR(D10=1,D11=1,"代休" ... 、当然間違っているのでしょうが・・・逆にD10、D11に IF(E12="休暇","1.0",IF(E12="半休","0.5",IF(E12="日"," ... ",IF(E12="公休","",IF(E12="代休","",IF(E12="半代",""))) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200609/20060904083757.txt - [detail] - similar

[[20121031214233]] 1234: 『検索速度が遅い』（ぼん）
Dim tbl As Variant, x As Variant, sh As Variant, kw As Variant Dim i ... キーワードの間に |（パイプライン） ", "検索結果") If mykey = "" Then Exit Sub ReDim x(1 To UBound(tbl, ... ykey), " ", " "), " ") .Pattern = ".*" & kw & ".*" If Not .test(Trim(mystr)) Then j = 1 Next kw If j = 0 ... 1 To UBound(tbl, 2) x(c, n) = tbl(i, n) Next n End If Next i End With With Sheets("検索結果") .Range("A1 ... キーワードの間に |（パイプライン） ", "検索結果") If mykey = "" Then Exit Sub Application.ScreenUpdatin ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201210/20121031214233.txt - [detail] - similar

[[20040415165539]] 1228: 『VBA:文字列の分割&まとめる』（わからず）
仕事でいきずまってしまいました。どなたか良いご回答お願 ... MijissouL = "": MijissouR = "" For i = 2 To Nagasa If Val(Right(Left(roke, i), 1)) <> 0 Then Exit For Ne ... xt Kategori = Left(roke, i - 1) If Left(roke, 1) = "<" Then _ Mijissou = "<": Mijisso ... uL = "<": MijissouR = ">" If Nagasa >= 40 Then Selection.Offset(0, -1).Select K ... i = 0 To 37 A = Left(roke, 38 - i) B = Right(A, 1) If B = "," Then Exit For Next Selection.Offset(-1, 1) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200404/20040415165539.txt - [detail] - similar

訪問者：カウンタ