advanced help
per page, with , order by , clip by
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
PREV 1 2 3 4 5 6 7 8 9 10 11 12 NEXT
Powered by Hyper Estraier 1.4.13, with 96869 documents and 608041 words.

訪問者:カウンタValid HTML 4.01 Transitional