advanced help
per page, with , order by , clip by
Results of 221 - 230 of about 37679 for IF (0.018 sec.)
[[20070130064153]] 1252
『クリックによる文字変換』(BOXY)
過去ログに同じようなものがありましたが、マウスのクリックだけで ... bleClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Application.Inte ... = True Application.EnableEvents = False Target = IIf(Target = "", "○", "") Application.EnableEvents = T ... ghtClick(ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Application.Inte ... = True Application.EnableEvents = False Target = IIf(Target = "", "×", "") Application.EnableEvents = T ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200701/20070130064153.txt - [detail] - similar
[[20101221205345]] 1252
『作業時間と休憩時間』(FA)
いつもお世話になっております。 また行き詰りましたので皆様のお力をお ... を列挙 vntColumn = Array(3, 5, 6, 7, 8) With Target If .Count > 1 Then Exit Sub End If If .Row <= 2 Then ... Exit Sub End If 'シフト、開始日付、開始時間、終了日付、終了時間の何 ... れかが入力された場合 For i = 0 To UBound(vntColumn) If .Column = vntColumn(i) Then Exit For End If Next i ... If i > UBound(vntColumn) Then Exit Sub End If '入力行 ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101221205345.txt - [detail] - similar
[[20121112093649]] 1252
『がらがらを作りたいのですが・・・』(ラッキー男)
はじめまして。 年末の抽選くじを用意するように ... nd With Set winner = .Shapes("Winner") End With Do If GetAsyncKeyState(vbKeyShift) <> 0 Then Exit Do 'シ ... Next Sleep 10 DoEvents Loop z = 0 For Each sp In v If sp.Left > maxL Then maxL = sp.Left Set winBall = s ... p End If z = z + 1 sp.Left = pos(z, 1) sp.Top = pos(z, 2) N ... nd With Set winner = .Shapes("Winner") End With Do If GetAsyncKeyState(vbKeyShift) <> 0 Then Exit Do 'シ ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201211/20121112093649.txt - [detail] - similar
[[20181205154637]] 1252
『エクセルの検索機能』(しのみや)
教えてください A 1 日本の地図 2 アメリカと世界 3 インドとアメ ... p = InputBox("検索ワードを入力(スペース区切可)") If ip = "" Then Exit Sub ip = Replace(ip, " ", " ") I ... WorksheetFunction.CountA(Cells) = 0 Then Exit Sub If InStr(ip, " ") > 0 Then For Each c In Cells.Specia ... lCells(2) For i = 0 To UBound(Split(ip, " ")) If InStr(c.Value, Split(ip, " ")(i)) > 0 Then If r Is ... othing Then Set r = c Else Set r = Union(r, c) End If End If Next i Next c Else For Each c In Cells.Spec ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181205154637.txt - [detail] - similar
[[20080714182332]] 1252
『セルの中にオプションボタンを収める方法』(MAKO)
いつもお世話になっています。 オプションボタン ... t flag = Application.Intersect(Target, Range(adr)) If flag Is Nothing Then Exit Sub Cancel = True With T ... arget If .Value = "■" Then .Value = "" Else .Value = "■" If ... (, 1).Value = "" Else .Offset(, -1).Value = "" End If End If End With End Sub (HANA) ---- HANAさん、ご回 ... t flag = Application.Intersect(Target, Range(adr)) If flag Is Nothing Then Exit Sub Cancel = True With T ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/200807/20080714182332.txt - [detail] - similar
[[20230331101731]] 1252
『ポップアップでカレンダーを出す方法』(波冠)
初めまして。 当方ドが付くエクセル初心者です。 皆様 ... d Sub Private Sub ButtonToday_Click() Value = Date If Executing Then Executing = 2& Me.Hide End If If No ... hing Then CallerCell.Value = SelDate Unload Me End If End Sub Private Sub ButtonPrevM_Click() Value = Da ... ay(SelDate)) End Sub Private Sub ButtonEsc_Click() If Executing Then Me.Hide Else Unload Me End Sub Priv ... wn(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) With SpinY Select Case KeyCode.Value ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/202303/20230331101731.txt - [detail] - similar
[[20150523111041]] 1252
『印刷エラー』(エクセルおじさん)
以下のコードで印刷を行っていますが、チェックボックスを追加する ... 印刷するシート名 For i = 0 To Me.Controls.Count - 1 If TypeName(Me.Controls(i)) = "CheckBox" Then If Me.C ... ontrols("CheckBox" & i + 1).Value = True Then If (couni Mod 2) <> 0 Then .Range("a6").Value = Me.Co ... .PrintOut Copies:=1 .Range("a6").ClearContents End If End If End If Next i If (couni Mod 2) <> 0 Then Me ... .PrintOut Copies:=1 .Range("a6").ClearContents End If End With Unload Me End Sub 尚、エラーは、 If Me.Co ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150523111041.txt - [detail] - similar
[[20120502160436]] 1252
IF関数で条件つき2』(neil)
A B C 90 5 判定OK 70 15 判定× 150 25 再施工調査 50 10 判定× 40 8 判 ... 25以上30未満なら⇒C行再施工調査 この時(Excel2003)IF関数をどの様の入れれば良いでしょうか? よろしくお願い ... で VLOOKUP関数等使ってみてはどうですか? (HANA) ---- IFとANDを使う方法 =IF(B1="","",IF(AND(B1>=0,B1<10),"判 ... 定OK",IF(AND(B1>=10,B1<20),"判定×",IF(AND(B1>=20,B1<30),"再 ... 度判定OK",IF(AND(B1>=25,B1<30),"再施工調査",""))))) IFとLOOKUPを ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201205/20120502160436.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
[[20190625075308]] 1247
『(マクロ)セルの作表方法について』(マイン)
お世話になっております。 日曜日のあるセルを取得し「 ... 'セルを順次左方向に値が""以外のセルに到達したら終了 If .Cells(4, col) <> "" Then Exit For Next col '★着色 ... 行は5行目) '★カレンダーから日曜日を判定し罫線を設置 If Weekday(.Cells(5, c)) = vbSunday Then If MyKei Is ... ion(MyKei, .Range(.Cells(5, c), Cells(90, c))) End If End If '★公休着色:作業行1行目にある日付関数で休日マ ... スタから休み該当=1表示を取得し処理 If .Cells(1, c) = 1 Then If MyColor Is Nothing Then S ...
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190625075308.txt - [detail] - similar
Powered by Hyper Estraier 1.4.13, with 97034 documents and 608188 words.

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