Results of 31 - 40 of about 37650 for IF (0.010 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
- [[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
- [[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
- [[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
- [[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
- [[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
Powered by
Hyper Estraier 1.4.13, with 97033 documents and 608013 words.
訪問者: