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

Results of 241 - 250 of about 37680 for IF (0.019 sec.)

[[20100420123546]] 1247: 『より便利な検索方法』（ゆんぱすとーら）
Win Vista Excel 2007 こういう動作をマクロで動作させたい ... いですが… B,C列を作業列として使用します。 B1セルに =IF(COUNTIF(A1,"*"&$E$1&"*")>0,"○","×") C1セルに =IF(B ... 1="○",COUNTIF($B$1:B1,"○"),"") としてそれぞれB2000,C2000までオー ... 検索BOXとし、F列に検索候補を表示するとして F1セルに =IF(ISERROR(MATCH(ROW(),C:C,0)),"",INDIRECT("C"&MATCH( ... ---- すみません。さっきの式一部訂正です。 F1セル==IF(ISERROR(MATCH(ROW(),C:C,0)),"",INDIRECT("A"&MATCH( ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201004/20100420123546.txt - [detail] - similar

[[20210822004203]] 1247: 『トグルのグループ分けと入力』（はせぴぃ）
ユーザフォームにてテキストボックスを2個、トグルボタン ... ctl In Me.Controls 'フォーム上のコントロールを巡回 If TypeName(ctl) = "ToggleButton" Then 'トグルボタンか ... プロパティにランダムにグループ名のいずれかを入力 End If Next End Sub Private Sub UserForm_Terminate() 'フォ ... 制のためにフラグを立てる For Each ctl In Me.Controls If TypeName(ctl) = "ToggleButton" Then 'タグに設定した ... で押したトグルボタン自身でないものは値をFalseにする If ctl.Tag = Tgl.Tag And Not ctl Is Tgl Then ctl.Valu ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202108/20210822004203.txt - [detail] - similar

[[20080309030904]] 1247: 『今エクセル使ってるんですけど =IF(I13=0,C5, IF(I13=5,C6, IF(I13=10,C7, IF(I13=15,C8, IF(I13=20, ... C9, IF(I13=25,C10, IF(I13=30,C11, IF(I13=35,C12, IF (I13= ... 40,C13, IF(I13=45,C14, IF(I13=50,C15, IF(I13=55,C16, IF(I13=6 ... 0,C17, IF(I13=65,C18, IF(I13=70,C19, IF(I13=75,C20, IF(I13=8 ... 0,C21, IF(I13=85,C22, IF(I13=90,C23, ))))))))))))))))))) これ ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200803/20080309030904.txt - [detail] - similar

[[20130325160906]] 1247: 『セルに日付を入力すると入力された日に★マークが表示される』（sonson）
E1に1月1日〜NE1に12月31日と ... 催案内 1週間前 3/25 Excel2010 ---- すなおに、 E3 : =IF($D3=E$1,"★","") で、これをNE3までフィルコピーして、 ... t, Range("D3", Range("D" & Rows.Count).End(xlUp))) If r Is Nothing Then Exit Sub Application.EnableEvent ... h c In r c.EntireRow.Range("E1:NE1").ClearContents If IsDate(c.Value) Then If c.Value >= fd And c.Value ... .EntireRow.Cells(c.Value - fd + 5).Value = "★" End If End If Next Application.EnableEvents = True End Su ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201303/20130325160906.txt - [detail] - similar

[[20131109131120]] 1243: 『1日の作業工程をガントチャート表示にしたい-2』（yuri）
改めて新スレッドとして立ち上げました。以 ... 8:30 田中 06:40 07:40 下関数が入っているセル L列 =IF(E5="","",VLOOKUP($E5,$AI$1:$AJ$201,2,FALSE)) M列 = ... ") For g0 = LBound(testarray) To UBound(testarray) If Not dic.Exists(testarray(g0)) Then dic.Add testarr ... ay(g0), "" End If Next For Each ans In dic.Keys MsgBox ans Next Set ... sht.Cells(idx, 9).Value col = 3 Do Until col > 15 If col <= 18 Then mkrw = rw Else mkrw = rw + 1 If sht ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201311/20131109131120.txt - [detail] - similar

[[20071122151028]] 1243: 『過去にさかのぼってデータを閲覧する方法』（ゆきだるま）
こんにちは。いつも皆さんの回答を参考に ... 、B1の日付からB2の日付の間のデータを抽出します。 F4=IF(AND(E4>=$B$1,E4<=$B$2),A4,"") G4=IF(F4="","",COUNT ... とした場合、元の表の空いている列（例えばI2セル）に =IF(AND(B2>=Sheet2!$D$1,B2<=Sheet2!$D$2,OR(C2="",C2>Sh ... /1 0 K1が検索開始日、L1が検索終了日として、 J2に =IF(H2>$L$1,0,IF(AND(I2<>"",I2<$K$1),0,IF(I2="",$L$1,M ... ）。 ※入力が有る場合は、退職日とL1との小さい日 >>>>> IF関数で事前にK1より退職日が小さい場合を除いているので ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200711/20071122151028.txt - [detail] - similar

[[20120411160743]] 1243: 『ユーザーフォームからの転記がうまくいきません』（peridot）
本当に何度もすみません [[20120410105 ... xtBox1.Value) c2 = Me.ComboBox2.Value a = c2 Mod 2 If a <> 0 Then Call 奇数枝番入力 Else Call 偶数枝番入 ... 力 End If End With End Sub Private Sub 奇数枝番入力() Dim i ... サンプル") kigo1 = ComboBox1.Value & ComboBox2.Value If Me.ComboBox3.Text = "作業簿_SK" Then For i = 3 To ... 19 For c = 4 To 11 If Controls("ComboBox" & c) = "" Then Exit For .Cells ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201204/20120411160743.txt - [detail] - similar

[[20220227162258]] 1243: 『For to next コードでエラーがでます』（あい）
VBA初心者です。コードを書いていて、For to nextで ... unt, 1).End(xlUp).row Dim a As Long For a = 2 To r If Cells(a, 14) = "" Then If 伝票画面.Label2 = Cells( ... a, 7) Then Else End If Next a このnext a のほうが間違っているといわれます ... :unknown、使用 OS:Windows10 ＞ ---- 下記記事の（1）Ifに対応するEnd Ifがないですかね。 https://excel-tosh ... unt, 1).End(xlUp).row Dim a As Long For a = 2 To r If Cells(a, 14) = "" Then If 伝票画面.Label2 = Cells( ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202202/20220227162258.txt - [detail] - similar

[[20090627005959]] 1243: 『数値と名前の抽出』（もののけ姫）
こんばんわ。皆様にご指導していただきたく、書き込みします。今 ... Range Dim i As Long i = 1 For Each r In dataRange If Not IsEmpty(r) Then tmpWS.Cells(i, "A") = r.Value ... f = rankRange.Find(what:=r.Value, lookat:=xlWhole) If f Is Nothing Then tmpWS.Cells(i, "B") = Rows.Count ... Else tmpWS.Cells(i, "B") = f.Row End If i = i + 1 End If Next tmpWS.Columns("A:B").Sort _ ... heets("sheet1").Columns("a").SpecialCells(2).Areas If myAreas.Count < 2 Then Exit Sub For Each myArea In ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200906/20090627005959.txt - [detail] - similar

[[20100304132347]] 1243: 『【至急!!】累乗計算』（みい）
助けて下さい! 下記Ⓐの式をexcelで入力するにはどうしたら良いで ... , "*"), "{", "("), "}", ")"), "[", "("), "]", ")") If data = "" Then txtcalc = 0: Exit Function With Cre ... ateObject("vbscript.regexp") .Global = True If adrs Like "*" & adrs.Font.Superscript & "*" Then D ... o While i < Len(adrs) i = i + 1 If adrs.Characters(i, 1).Font.Superscript Then d_1 = ... d_1 & "^" If adrs.Characters(i + 1, 1).Font.Superscript Then fl ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201003/20100304132347.txt - [detail] - similar

訪問者：カウンタ