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

Results of 231 - 240 of about 37679 for IF (0.019 sec.)

[[20231121213229]] 1247: 『休みを考慮した当番表』（トド）
新たに当番表をつくることになりました。シフト表をもとに、当番表 ... n.VLookup(Name, wsPers.Range("A2:B129"), 2, False) If IsError(ableDuties) Then ableDuties = "" End If ro ... pplication.Match(Name, wsPers.Range("A1:A129"), 0) If IsError(rowPos) Then Set rEventDays = wsPers.Range ... tersect(wsPers.UsedRange, wsPers.Rows(rowPos)) End If End Sub '優先順位作成 Function Priority(Duty, ColN ... yPos Top(1) = "A" '仮置き 'A-Bの組合せのダブり回避 If Duty = "B" Then If ABcombCounterPart = staffCharge ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231121213229.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

[[20180105233753]] 1247: 『ユーザーフォームボタンクリック後、人によるセルの選択、その内容をファームに返す方法』（なか）
... したマクロです。 Private Sub CommandButton1_Click() If ComboBox2 = "" Then MsgBox "部署名と名前を入力して ... ください" Exit Sub Else End If If ComboBox4 = "" Then MsgBox "品物を選んでください ... " Exit Sub Else End If If TextBox3.Text = "" Then MsgBox "行先を入力してく ... ださい" Exit Sub Else End If Dim shtmei As String shtmei = Me.ComboBox3.Value S ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201801/20180105233753.txt - [detail] - similar

[[20050501180310]] 1247: 『検索値の答えが複数』（たろべえ）
下記の表があります。 A 1 125 2 ○ A1のセルに入る数値によって、 ... 1から350=▲ 351以上 = × 現在入力している関数式は、 =IF(A1="","",IF(90<=A1>=120,"◎",IF(121<=A1<=180,"○",IF ... (181<=A1<=250,"●",IF(251<=A1<=350,"▲",IF(A1>=351,"×","範囲外")))))) とし ... =A1,A1<=120) その他こんな式でもいいかもです〜 A2 =IF(A1<>"",LOOKUP(A1,{0;90;121;181;251;351},{"範囲外"; ... 21 ○ 13 181 ● 14 251 ▲ 15 351 × ◆結果判定の式はA2 =IF(A1="","",VLOOKUP(A1,$A$10:$B$15,2)) ◆いろんな方法が ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200505/20050501180310.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

[[20191025121409]] 1247: 『Excel2003で作ったマクロをExcel2007で動作させたい』（もぐら）
OSがWindowsXPでExcel2003の時に動作 ... lean Dim ret As Boolean Dim intSelCount As Integer If False <> ToolbarCode.FastAcqOn Then Exit Sub If (( ... urce at the scope", vbOKOnly, AppName Exit Sub End If ToolbarCode.DebugPos = 30 If UCase(lstMeas.List(0) ... ment at the scope", vbOKOnly, AppName Exit Sub End If intSelCount = 0 For i = 0 To (Me.lstMeas.ListCount ... - 1) If lstMeas.Selected(i) Then intSelCount = intSelCount ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191025121409.txt - [detail] - similar

[[20021225004428]] 1247: 『カップル成立を早く見つけたい』（tono）
・a〜kの11人×2人の男女がいます。この男女がどの人を希望し ... K カップル女男 A A C J D C F K J I A15:=A2 B15:=IF(VLOOKUP(B2,$F$2:$I$12,2)=$A2,1,IF(VLOOKUP(B2,$F$2: ... $I$12,3)=$A2,2,IF(VLOOKUP(B2,$F$2:$I$12,4)=$A2,3,""))) C15:=IF(B15=1 ... ,B2,"") D15:=IF(ISERROR(MATCH(B2,$C$15:$C$25,0))=TRUE,IF(B15=2,B2, ... ""),"") E15:=IF(AND(ISERROR(MATCH(B2,$C$15:$C$25,0))=TRUE,ISERROR( ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200212/20021225004428.txt - [detail] - similar

[[20070226141715]] 1247: 『和の逆算について（組み合わせ?）』（alay） Excel2003のXPです。以下のような既存のシートがありま ... .End(xlUp).Row - 1, 5) For i = 1 To UBound(tbl, 1) If IsEmpty(tbl(i, 5)) Then dic(tbl(i, 1)) = Empty End ... If Next i y = dic.Count ReDim x(1 To UBound(tbl, 1), ... 1 To 2) For i = 1 To UBound(tbl, 1) If dic.exists(tbl(i, 1)) And IsEmpty(tbl(i, 5)) Then ... j + 1 x(j, 1) = tbl(i, 1) x(j, 2) = tbl(i, 4) End If Next i ReDim fnd(1 To j, 1 To 1) For Each ky In di ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200702/20070226141715.txt - [detail] - similar

[[20120416110515]] 1247: 『マクロで2つのデータを比較』（きゃとら）
以前も似たような質問でお世話になったのですが下記のよう ... (Rows.Count - .Row, clngKeyA).End(xlUp).Row - .Row If lngRowsA <= 0 Then strProm = "データが有りません" ... GoTo Wayout End If End With With rngListB '行数の取得 lngRowsB = .Off ... (Rows.Count - .Row, clngKeyB).End(xlUp).Row - .Row If lngRowsB <= 0 Then strProm = "データが有りません" ... GoTo Wayout End If '列データを配列に取得 vntDataB = .Offset(1).Resize ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201204/20120416110515.txt - [detail] - similar

[[20170228130843]] 1247: 『一覧表をカレンダー表示へ変換』（s55tac）
会議スケジュールの一覧を、カレンダー表示に自動変換をし ... entRegion.Rows.Count For i = 4 To 7 For j = 2 To e If .Cells(j, 1) = "A" And .Cells(j, 3) = "長" Then Se ... f = tSh.UsedRange.Find(.Cells(j, i), , , xlWhole) If Not f Is Nothing Then Set s = tSh.UsedRange.Find(. ... Cells(j, i) + 7, , , xlWhole) If s Is Nothing Then Set s = tSh.Cells(Rows.Count, f. ... ).Offset(1) Else Set s = s.End(xlUp).Offset(1) End If s.Value = .Cells(j, 2) s.Offset(1).Value = .Cells( ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201702/20170228130843.txt - [detail] - similar

訪問者：カウンタ