Results of 61 - 70 of about 37650 for IF (0.011 sec.)
- [[20111027111622]] 1354
- 『1.VBAでファイル名の一部を一括変換』（ミニー）
はじめまして このたびVBAで下記のような作業をしよ...Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then myFol = .SelectedItems(1) If myF...xtBox2.Value = Replace(myFol, myPath, myMonth) End If End If End With End Sub Private Sub CommandButton2...Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then Me.TextBox2.Value = .SelectedIte...ms(1) End If End With End Sub Private Sub CommandButton3_Click(... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201110/20111027111622.txt - [detail] - similar
- [[20210816145809]] 1350
- 『VBA リストボックス追加』（Aya）
VBA初心者です。教えてください。 既存のVBAにリストボックスを追加...ge(Cells(6, 11), Cells(23, 11)) = "" With ListBox2 If .ListIndex = -1 Then '何も選択されていなければ Msg...Box "何も選ばれていません" Exit Sub End If iiii = 6 rrrr = 0 For 選択行B = 0 To .ListCount -...1 If .Selected(選択行B) Then '選択されている行ならば Ac...0) ActiveSheet.Cells(iiii, 11) = .List(選択行B, 1) If ActiveSheet.Cells(iiii, 2) = "" Then End If iiii =... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202108/20210816145809.txt - [detail] - similar
- [[20110614101232]] 1350
- 『指定範囲2箇所のダブリチェック』（toppo）
選択したセル範囲の値だけを指定セルに移動する物です。（...。 Sub 値移動() Dim r As Range On Error Resume Next If Selection.Areas.Count > 1 Then MsgBox "複数の島選択...cation.InputBox("移動先", Type:=8) On Error GoTo 0 If r Is Nothing Then Exit Sub If r.Cells(1).Cells.Mer...geCells = True Then If MsgBox("指定セルは結合されています。" & vbCrLf & _...確認") = vbCancel Then Set r = Nothing Exit Sub End If r.Cells(1).Cells.MergeCells = False '結合解除 End... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201106/20110614101232.txt - [detail] - similar
- [[20221117172849]] 1345
- 『カレンダーの日付をクリックして該当のセルにとびたい』（popo）
よろしくお願いします。表型のカレン...リア 01行 2022 11 =WEEKDAY(DATE(A1,B1,1)) =DAY(DATE(IF(B1=12,A1+1,A1),IF(B1=12,1,B1+1),1)-1) 02行 日 月 火...水 木 金 土 03行 =HYPERLINK("#R1C"&(IF(A9="",0,A9)+12),A9)<---これを右に7つコピー 04行 =H...YPERLINK("#R1C"&(IF(A10="",0,A10)+12),A10)<---これを右に7つコピー 05行...=HYPERLINK("#R1C"&(IF(A11="",0,A11)+12),A11)<---これを右に7つコピー 06行... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202211/20221117172849.txt - [detail] - similar
- [[20031010140625]] 1345
- 『連続した数字を出す方法は』（山田）
想像して下さい!! A5セル〜A19セルまでの間に1〜15の数字がある...設定にし、リンク先はA1にしています。) そこでA5セルに=IF(A1=8,8,IF(A1=7,7,IF(A1=6,6,IF(A1=5,5,IF(A1=4,4,IF(...A1=3,3, IF(A1=2,2IF(A1=1,1)))))))) と入力し、 A6セルには 同様...に=IF(A1=9,10,IF(A1=8,9,IF(A1=7,8,IF(A1=6,7,IF(A1=5,6,IF...(A1=4,5, IF(A1=3,4,IF(A1=2,3,IF(A1=1,2)))))))) と式を入力してい... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200310/20031010140625.txt - [detail] - similar
- [[20111227160835]] 1345
- 『会費の一覧表』（おばちゃん）
会費の一覧表を作成していますが、ツマヅイテしまいましたので教えて下...w.excel.studio-kazu.jp/lib/e3h/e3h.html BJ ---- SUMIFでいいんじゃないの? (春日野馨) ---- BJさん 早速の回答...いたSUMPRODUCT関数を頑張ってみますV(‾‾)V 春日さん SUMIF… 関数はホボ知らないくらいの知識なのでこちらも頑張っ...きません」 と、出てしまいます。 だからSUMPRODUCTやSUMIFがあるのだと思いますが、結局作れませんでした。。。 ど...記の式をもっと短く出来ませんでしょうか・・・? 最後は+IF($F$66="○",E66,0)まであります。。。が、長くて入りま... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201112/20111227160835.txt - [detail] - similar
- [[20040615092159]] 1341
- 『関数の使用個数なんですけど』（ku）
いろんな関数があるんですけど、一つのセルに入力出来る関数は、...ます。 「Excel2000」 「Windows98se」 ---- おそらく、IF のネスト(1つのセル内で IF を複数つなげること)のこと...を言ってるんでしょうね。 IF関数は7つまでしかネスト出来ません。 IF の中に入れる他...の関数の種類とは関係ないです。 IF のネストに関しては過去ログにも有ったはずなんですが...か解らないので、すみませんm(_ _)m 確認なんですけど、IF関数の中にIFのネストは7個までなんですよね?じゃあ、IF... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200406/20040615092159.txt - [detail] - similar
- [[20180202112039]] 1341
- 『マクロ もう少し簡便にまとめたい』（宇都会ね）
次のことも合わせてできないものか、お伺い致します...黄色が表示しています。解消ができないので解消したい 2.If Cells(i, "H") >= 1 And Cells(i, "H") < 50 Then Cel...ulation = xlCalculationManual For i = 2 To LastRow If (Cells(i, "E") = "" Or Cells(i, "F") = "") Or Cell...s(i, "G") = "" Then Cells(i, "J") = "外" ElseIf (Cells(i, "E") = "" Or Cells(i, "F") = "") Or Cell...s(i, "G") = "" Then Cells(i, "J") = "外" ElseIf (Cells(i, "E") >= 20 And Cells(i, "F") >= 6) And C... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201802/20180202112039.txt - [detail] - similar
- [[20090312114539]] 1341
- 『データ入力ファイル→管理ファイルへ?（追加質問）
』（syus） 以前はスムーズかつ明確なご回答を頂き、
...Cancel As Boolean) Dim x As Long, i As Long, myAdd If (Target.Column <> 1) + (Target.Row = 1) + (Target....ge(myAdd(i)).Value = Me.Cells(x, i + 1).Value Next If Dir(ThisWorkbook.Path & "¥" & Me.Cells(x, "AD").Va...= .Rows(2) myPic,Height = 40 myPic.Width = 40 End If .Select End With End Sub 2) A列の名前をダブルクリッ...Cancel As Boolean) Dim x As Long, i As Long, myAdd If (Target.Column <> 1) + (Target.Row = 1) + (Target.... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/200903/20090312114539.txt - [detail] - similar
- [[20140408124906]] 1341
- 『2013でのマクロが実行されない』（じゃぽね）
いつもありがとうございます。 2003で作成したブック及...ct Range("n1").Select ActiveCell.FormulaR1C1 = "1" If Range("p1").Value <> "" Then ActiveWindow.Selected...Sheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "2" If...lectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "3" If...lectedSheets.PrintOut Copies:=1, Collate:=True End If Range("n1").Select ActiveCell.FormulaR1C1 = "4" If... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201404/20140408124906.txt - [detail] - similar
Powered by Hyper Estraier 1.4.13, with 97032 documents and 608010 words.
訪問者：