Results of 21 - 30 of about 37573 for IF (0.009 sec.)
- [[20230502164009]] 1453
- 『画像取り込みについて』(eiji)
Excelを32bitから64bitに変更インストールしたところ以下マクロで 画 ...
IPicture Dim Handle&, desc As UPICDESC, id As GUID If OpenClipboard(0&) > 0 Then If Format = xlBitmap Th ...
etClipboardData(CF_ENHMETAFILE), vbNullString) End If CloseClipboard End If If Handle = 0 Then Exit Func ...
bUnicode), id With desc .Size = Len(desc) .Type = IIf(Format = xlBitmap, PICTYPE_BITMAP, PICTYPE_ENHMETA ...
OleCreatePictureIndirect desc, id, 1, GetPicture'★ If GetPicture Is Nothing Then If Format = xlBitmap Th ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/202305/20230502164009.txt
- [detail]
- similar
- [[20110321134155]] 1453
- 『マクロで勤務表』(ふわり)
Excel2003 WindowsXPを使用してます。 たとえばK10のセルに○を入力すると ...
rivate Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Columns("K:L")) Is Nothing Then ...
se For Each r In Intersect(Target, Columns("K:L")) If r.Value = "○" Then Select Case r.Column Case Range ...
Cells(r.Row, "H").Value = "1:45:00" End Select End If Next Application.EnableEvents = True End Sub (Mook ...
きると思います。 Dim r As Range For Each r In Target If r.Column = 13 Then ' M列なら Select Case r.Value C ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201103/20110321134155.txt
- [detail]
- similar
- [[20070330224027]] 1453
- 『長すぎます 何とかしてください』(ctate)
If CheckBox1 = True Then a1 = "01" If CheckBox2 = Tru ...
e Then a2 = "02" If CheckBox3 = True Then a3 = "03" If CheckBox4 = Tru ...
e Then a4 = "04" If CheckBox5 = True Then a5 = "05" If CheckBox6 = Tru ...
e Then a6 = "06" If CheckBox7 = True Then a7 = "07" If CheckBox8 = Tru ...
e Then a8 = "08" If CheckBox9 = True Then a9 = "09" If CheckBox10 = Tr ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200703/20070330224027.txt
- [detail]
- similar
- [[20120417121849]] 1448
- 『For文を2つ繰り返したいのですが』(NAGI)
For文を使って、A列にあってC列に無いもののチェックをし ...
w For j = 3 To .Cells(Rows.Count, 3).End(xlUp).Row If .Cells(i, 1).Value = .Cells(j, 3).Value Then flg = ...
True Exit For End If End If Next j If flg Then flg = False Else Cells(i ...
, 1).Interior.ColorIndex = 6 End IF Next i これに続けて、C列にあってA列にないものをチェ ...
ゃない? あと、j をカウンタ変数としたループの中で End If がひとつ多いと重います。 (ROUGE) Sub Trial() Dim t ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201204/20120417121849.txt
- [detail]
- similar
- [[20050219161833]] 1448
- 『VBAにて最短距離探索』(にく)
シートに A列(データ数) B列(番地) C列(番地) D列(B列とC列の ...
ータの始まり。 Do Until GYOU = 83 'データの終わり。 If Cells(GYOU, 2) = START Then Dim J, FLG, KPOINT J = ...
0 FLG = 0 Do Until J = pointsuu + 1 If Cells(GYOU, 3) = HOZON(J, 0) Then FLG = 1 KPOINT = ...
'今までに通ったことがある場所の格納位置を保存 End If J = J + 1 Loop If V = 3 Then T = 100 End If If FLG ...
= 0 Then HOZON(POINT + 1, 0) = Cells(GYOU, 3) If HOZON(V - 1, 0) = HOZON(0, 0) Then HOZON(POINT + 1 ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200502/20050219161833.txt
- [detail]
- similar
- [[20190207200453]] 1448
- 『データの抽出』(日報)
お世話になります。 シート1、シート2の2つのシートがあります。 シート1 |[ ...
1").Value For j = LBound(MyA, 2) To UBound(MyA, 2) If Not MyDic.Exists(MyA(1, j)) Then Set MyDic(MyA(1, ...
= CreateObject("System.Collections.ArrayList") End If Next End With MyDate = Sheets("Sheet2").Range("E1" ...
6).Value For i = LBound(MyB, 1) To UBound(MyB, 1) If MyB(i, 1) = MyDate Then If MyB(i, 2) > MyDate Then ...
If Val(MyB(i, 2)) > 0 Then If 最大期間 < MyB(i, 2) Th ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201902/20190207200453.txt
- [detail]
- similar
- [[20151211151922]] 1448
- 『複数のユーザーフォーム起動について』(昴)
[[20151210140915]] ↑で飛び入りで質問しましたが 改め ...
onChange(ByVal Target As Range) Dim pos As Boolean If Not Intersect(Me.Range("A:A,E:E"), Target) Is Noth ...
ing Then pos = True If pos Then If Not flag Then UserForm4.Show vbModeles ...
ag = True 'AppActivate ActiveWindow.Caption '★ End If Else If flag Then UserForm4.Hide flag = False End ...
If End If If Not Intersect(Me.Range("H:H"), Target) Is Nothi ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201512/20151211151922.txt
- [detail]
- similar
- [[20041031102648]] 1444
- 『列を挿入及び削除した場合に参照セルを移動』(ツーチャン)
[列及び行を挿入及び削除した場合に参照 ...
- (Hatch)さんre有り難うございます。 一つのセルに [=IF(OR(R81="YOKO",R81="L"),IF(CU81=B81,E81,IF(CU81=B80 ...
,E80,IF(CU81=B79,E79,IF (CU81=B78,E78,0)))),IF(CE81="SITA" ...
,IF(CU81=B81,G81,IF(CU81=B80,G80,IF (CU81=B79,G79,IF(C ...
U81=B78,G78,IF(CU81=B77,G77,IF(CU81=B76,G76,0))))))*IF(AND (CE81= ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200410/20041031102648.txt
- [detail]
- similar
- [[20160125115950]] 1439
- 『IF関数で呼び出した結果』(やま)
H22 セル '=IF(S20="","",IF(AND(IF(D4>=100,1,0)+IF(H4>=100,1,0 ...
)+IF(L4>=100,1,0)=3,IF(P4>=100,1,0)+IF(T4>=100,1,0)+IF( ...
X4>=100,1,0)>=2),"合 格","不合格")) A1セル '=IF(AND(IF(D4>=100,1,0)+IF(H4>=100,1,0)+IF(L4>=100,1,0 ...
)=3,IF(P4>=100,1,0)+IF(T4>=100,1,0)+IF(X4>=100,1,0)>=2),1 ...
場合には「0」を表示させたく無いので D4 セル他(得点) =IF($M$2="","",D3*10) としています。 (D3=◎の数) K2 セル ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201601/20160125115950.txt
- [detail]
- similar
- [[20040816152405]] 1435
- 『サンプル貸出管理表』(あっちゃん)
お世話になります。 サンプル貸出管理表を作成したいと思います ...
作品。「Sheet2が出来ていれば」これでいいはずです。 =IF(COUNTA(B2:B7)=6,IF(COUNTIF(OFFSET(Sheet2!A1,MATCH( ...
については、LOOKUP を使ってみたのですがダメでした。 IF関数の組合わせですか-。さすが〜という感じです。(゜o ...
B7に空白セルがあればメッセージを流して 'マクロ終了 If WorksheetFunction.CountA(ws1.Range("b2:b7")) <> 6 ...
4の値がB5より大きかったら入力ミスを指摘(ココ追加) If ws1.Cells(4, 2) > ws1.Cells(5, 2) Then MsgBox "期間 ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200408/20040816152405.txt
- [detail]
- similar
Powered by
Hyper Estraier 1.4.13, with 96869 documents and 608041 words.
訪問者: