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

Results of 31 - 40 of about 37649 for IF (0.009 sec.)

[[20070725142832]] 1429: 『セルを変えた時に実行するVBA』（ツバサ）
セルE4を変えた時に実行する下記のようなVBAがあります。 ... nge) Sheets("検索用").Select Range("E4:G5").Select If Target.Count > 1 Then Exit Sub If Target.Address(5 ... ts Range("C8").Select ActiveCell.FormulaR1C1 = _ "=IF(R4C5="""","""",IF(R2C10="""",VLOOKUP(R4C5,リスト一 ... )" Range("C9").Select ActiveCell.FormulaR1C1 = _ "=IF(R4C5="""","""",IF(R2C10="""",VLOOKUP(R4C5,リスト一 ... " Range("C10").Select ActiveCell.FormulaR1C1 = _ "=IF(R4C5="""","""",IF(R2C10="""",VLOOKUP(R4C5,リスト一 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200707/20070725142832.txt - [detail] - similar

[[20180905110243]] 1425: 『数値の合計が定数になる組み合わせを知りたい』（チュウ）
A1〜A10に人名、B1〜B10に数量（数値）が入 ... 1 To 10 x = .Cells(i, "B").Value For ii = 1 To 10 If .Cells(ii, "B").Value + .Cells(i, "B").Value = 20 ... Cells(i, "A") & "と" & .Cells(ii, "A") & " , " End If Next ii Next i End With y = "足した合計が20になる組 ... み合わせは" & vbCrLf For i = 1 To 5 If myArr(i) <> "" Then y = y & myArr(i) End If Next i ... Dim iR As Long For i = 1 To 10 For j = i + 1 To 10 If Cells(i, "B").Value + Cells(j, "B").Value = TGT Th ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201809/20180905110243.txt - [detail] - similar

[[20170115161539]] 1425: 『重複する名前に該当する回数で最大値を求めたい』（たかなし）
A2〜A32までは1ヶ月分の日付、B2〜B32 ... は上から昇順に数字が入ります<1・2・3・4・5…>）。 E列 IF(C2="","",COUNTIF(C$2:C2,C2))で回数を表示 F列 IF(D2 ... ="","",COUNTIF(D$2:D2,D2))で回数を表示名前と回数の列は1列だけにし ... M1 空白・M2 =INDEX(C:D,ROW()-INT((ROW()-2)/31)*31,IF(ROW()>=33,2,1))&"" これを、M63までフィルコピー・I ... 1 空白(空白じゃないと具合悪くなります) ・I2 =IFERROR(VLOOKUP("*",IF(COUNTIF(I$1:I1,M$1:M$100)=0,M$ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201701/20170115161539.txt - [detail] - similar

[[20131108095901]] 1415: 『comboboxをtextboxに変更』（KISS）
Ver2010 win7 いつも大変お世話になっております皆様のお力であ ... = 1 To UBound(a, 2) a(i, ii) = CStr(a(i, ii)) Next If Not dic.exists(a(i, 1)) Then Set dic(a(i, 1)) = Cr ... ting.Dictionary") dic(a(i, 1)).CompareMode = 1 End If If Not dic(a(i, 1)).exists(a(i, 2)) Then Set dic(a ... ionary") dic(a(i, 1))(a(i, 2)).CompareMode = 1 End If If Not dic(a(i, 1))(a(i, 2)).exists(a(i, 3)) Then ... dic(a(i, 1))(a(i, 2))(a(i, 3)).CompareMode = 1 End If If Not dic(a(i, 1))(a(i, 2))(a(i, 3)).exists(a(i, ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201311/20131108095901.txt - [detail] - similar

[[20181108135715]] 1415: 『長い数式がマクロで動かない』（チルハナ）
IFを連ねた2つの数式をマクロで実行しようとすると、上手 ... く行きません。 1つ目はもとの式 =IF(B9="","",IF(G9<651000,"65万1千円未満",IF(G9<161900 ... 0,"65万1千円以上161万9千円未満",IF(G9<1620000,"161万9千円以上162万円未満",IF(G9<16220 ... 00,"162万円以上162万2千円未満",IF(G9<1624000,"162万2千円以上162万4千円未満",IF(G9<16 ... 28000,"162万4千円以上162万8千円未満",IF(G9<1800000,"162万8千円以上180万円未満",IF(G9<36000 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201811/20181108135715.txt - [detail] - similar

[[20101023215523]] 1406: 『ビンゴの判定について（VBA)』（はこまる）
Private Sub CommandButton2_Click() Dim i As Integer D ... e For i = 1 To 75 Do 乱数(i) = Int(Rnd() * 75 + 1) If Not 比較用(乱数(i)) = 1 Then 比較用(乱数(i)) = 1 E ... xit Do Else End If Loop Next '○回目のところの数字 For j = 1 To 75 Cel ... ls(2, 8) = j Range("h3:j5") = 乱数(j) '記録表 If j <= 15 Then Cells(10, j + 1) = 乱数(j) ElseIf j < ... = 30 Then Cells(12, j - 14) = 乱数(j) ElseIf j <= 45 Then Cells(14, j - 29) = 乱数(j) ElseIf j ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201010/20101023215523.txt - [detail] - similar

[[20111114163123]] 1406: 『Excelの先入先出の方法★その3』（らんきち）
[[20111110145634]] の続きです。＞在庫の中には引当済 ... を呼び出そうとすると、標準モジュール1 Sub 出荷指示() If IsFormLoaded Then Exit Sub With UserForm1 .Tag = " ... lic Const ロットCol As String = "F" Sub 出荷指示() If IsFormLoaded Then Exit Sub With UserForm1 .Tag = " ... 図 .Show vbModeless End With End Sub Sub 引当更新() If IsFormLoaded Then Exit Sub With UserForm1 .Tag = " ... ("Scripting.Dictionary") For Each sh In Worksheets If Left(sh.Name, 2) = "在庫" Then comAbbr = Mid(sh.Na ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111114163123.txt - [detail] - similar

[[20210526130557]] 1397: 『マクロを使用して関数を張り付けたい』（殿様ぺんぎん）
マクロの関数で計算式を貼り付けを行いたい ... トに関数を張り付けて表示したい Range("D3").Value = "=IF(B3="""","""",IF(貼付場所!E44=""-"",D2,貼付場所!E44 ... ))" から Range("D165").Value = "=IF(B165="""","""",IF(貼付場所!E530=""-"",D164,貼付場所 ... で簡単にする方法はありますか? Range("D3").Value = "=IF(B3="""","""",IF(貼付場所!E44=""-"",D2,貼付場所!E44 ... (RW - 3) * Delta Range("D" & RW).FormulaLocal = "=IF(B" & RW & "="""","""",IF(貼付場所!E" & TgtRW & "=" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202105/20210526130557.txt - [detail] - similar

[[20060121164813]] 1397: 『セルをつなげたい』（奈美子）
セルA1から、A8までのセル内の文字ををB1につなげたいのですがそのつ ... n Range(data.Address) ReDim Preserve picup_data(i) If c <> "" Then picup_data(i) = c i = i + 1 End If Ne ... xt c namiko = Join(picup_data, sp_data) If Right(namiko, 1) = sp_data Then namiko = Left(nami ... ko, Len(namiko) - 1) End If End Function if right(.... の行を一部訂正〜 "/"で無 ... As Variant sAns = "" For i = 0 To UBound(Samples) If VarType(Samples(i)) < vbArray Then sAns = sAns & C ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200601/20060121164813.txt - [detail] - similar

[[20201126171413]] 1397: 『Excel64ビット変更後のVBAコンパイルエラー』（マツ）
Office365バージョンアップ(64ビット)に伴い32 ... 取得して配列aryDirへ Do ' 最後の「¥」が無ければ付与 If Right(aryDir(i), 1) <> "¥" Then strName = Dir(aryD ... ir(i) & "¥", vbDirectory) End If Do While strName <> "" If GetAttr(aryDir(i) & "¥" ... & strName) And vbDirectory Then If strName <> "." And strName <> ".." Then ReDim Pres ... ir(UBound(aryDir)) = aryDir(i) & "¥" & strName End If End If strName = Dir() Loop i = i + 1 If i > UBoun ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202011/20201126171413.txt - [detail] - similar

訪問者：カウンタ