エクセルの学校：全文検索：Hyper Estraier： IF

Results of 141 - 150 of about 37696 for IF (0.015 sec.)

[[20111129173053]] 1279: 『マクロを実行し、条件に一致した別sheetのセルにジャンプしたい』（ねこ）
お世話になります、どうし ... t sh1 = Sheets("Sheet1") d = sh1.Range("A1").Value If Len(d) = 0 Then MsgBox "会員番号が指定されていませ ... ん" Else For Each sh In Worksheets If Not sh Is sh1 Then If IsNumeric(Application.Match( ... sh.Columns("A"), 0)) Then flag = True Exit For End If End If Next If flag Then sh.Select Else MsgBox "会 ... 員番号" & d & "が見あたりません" End If End If Set sh1 = Nothing End Sub Sub Sample2() Dim ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111129173053.txt - [detail] - similar

[[20160527081343]] 1279: 『行列グループ化の判定をしてグループ化又はグループ解除する方法』（たぬき）
行・列のグループ化にお ... えればいいのかわからずです。。。 Sub MergeUnMerge() If ActiveCell.MergeCells = True Then If ActiveCell.Me ... rgeCells = True Then Selection.UnMerge Else If ActiveCell.MergeCells = False Then Selection.Merge ... End If End Sub ＜使用 Excel:unknown、使用 OS:unknown ＞ ... テーマからはずれて恐縮ですが、アップされたコードでは If ある条件 Then If ある条件 Then なになに Else If 反 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201605/20160527081343.txt - [detail] - similar

[[20091108213418]] 1279: 『ランダムな数字をなるべく均等に並べ替えるには』（54-71）
異なる数字がいくつかあります。それをい ... al(ele) Next Next wk = .Max(asum()) - .Min(asum()) If wk < ans Then g2 = g0 ans = wk End If End With Nex ... 1) .Value = wkarray .Value = Application.Evaluate("if(" & .Address & "<>"""",value(" & .Address & "))") ... g, dpx As Long Dim kdx As Long Dim retcode As Long If nest = 0 Then menum = 1 d_cnt = UBound(in_array) - ... 数 - 1) ReDim dup(UBound(in_array)) adx = 0 pdx = 0 If patturn(pdx, 1) > 1 Then dupmd = 1 Else dupmd = 0 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200911/20091108213418.txt - [detail] - similar

[[20101213213341]] 1279: 『二つのクリックイベントを一つのシートで行いたい』（Msd）
[エクセルのバージョン]Excel2003 [OSのバ ... ger, R As Range, B As Boolean For Each R In Target If Not Intersect(R, Range("L10:AE12,L26:AE28")) Is No ... thing Then If R.Value = "・" Or R.Value = "" Then GoTo NEXTCODE ... ancel = True B = False For i = 1 To Me.Ovals.Count If Shapes(i).TopLeftCell.Address = R.Address Then B = ... True: Exit For Next i If B Then Ovals(i).Delete Else Set R = R.MergeArea Wi ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201012/20101213213341.txt - [detail] - similar

[[20131029142202]] 1279: 『伝票番号』（キカク）
下記のようにA列に番号を振りたいと思います。 A1の番号はセルD1の値（101）、 ... /29(火) 15:08 ---- 最初にA1:A5に101と入力して、 A6=IF((A1+1)>999,$A$1,A1+1) A6を下にコピー。（天邪鬼） ... (xlUp)) v = .Value x = .Cells.Count For i = 1 To x If v(i, 1) = "" Then j = 0 Else If i > 1 Then If v(i ... - 1, 1) = "" Then s = s + 1 End If End If v(i, 1) = s j = j + 1 If j = 5 Then s = s + ... 1 j = 0 End If End If Next .Offset(, -1).Value = v End With End S ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201310/20131029142202.txt - [detail] - similar

[[20120130163648]] 1279: 『行数のカウントNGと範囲の代入での実行時エラー』（katanohosi）
行き詰まってばかりで前に進めません ... & "¥エクスポート¥dsgn") For Each myFile In .Files If myFile.Name Like "gnCI東海の重複.xls" Or _ myFile. ... th .Sheets(1) ' gc = Cells(1, 3).End(xlDown).Row ' If gc = 2 Then .Range("C3").Select Dim n As Integer F ... or n = 1 To 1000 If n = 1000 Then End g = ActiveCell.Row 'gは行番号 ' ... " & g).Value 'sounyuitiの値取得(M列の貼り付け位置) If .Range("C3").Value = "" Then Exit For 'C3が""なら終 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201201/20120130163648.txt - [detail] - similar

[[20070522160336]] 1279: 『文字列処理』（おや?）
以下の様な関数は可能でしょうか? 宜しくお願いします。文字列NO.1 ABC1DEFZ ... For i = 1 To Len(txt2) .Add Mid(txt2, i, 1), Empty If Not .Exists(Mid(txt1, i, 1)) Then txt = txt & Mid( ... txt2, i, 1) Else txt = txt & " " End If .RemoveAll Next End With For i = 1 To Len(txt2) If ... flg Then If Not IsNumeric(Mid(txt2, i, 1)) Then flg = False If ... xt, n - 1) & Mid(txt2, n, i - n) & Mid(txt, i) End If ElseIf i = Len(txt2) Then If Len(Trim(Mid(txt, n)) ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200705/20070522160336.txt - [detail] - similar

[[20040818144128]] 1275: 『整数、小数、文字列の表示』（K）
セルA1に条件付の3種類のパターンを打ち込み、そのままセルB1に表 ... 。 A1の書式はあっちに置いといて・・・・『A1書式』 =IF(A1="","",IF(ISERR(MOD(A1,1)),TEXT(A1,"@"),IF(MOD(A ... (TEXT(A1,"#,##0")),VALUE(TEXT(A1,"0.000"))))) D1に=IF(A1="","",IF(ISERR(MOD(A1,1)),"",B1*C1)) で、どうで ... _Change(ByVal Target As Range) Dim col, r1 As Long If Target.Column <> 1 Then Exit Sub r1 = Target.Row c ... ol = Target.Column On Error Resume Next If Cells(r1, col).Value Mod 1 = 100 Then Cells(r1, co ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200408/20040818144128.txt - [detail] - similar

[[20111122110935]] 1275: 『Excel在庫管理で入荷処理』（らんきち）
[[20111101135213]] [[20111110145634]] [[20111114163123]] ... ng Select Case Me.Tag Case "A" Call io商品(fnOpen) If Not make出荷指示書(fnOpen) Then CommandButton1.Ena ... False CommandButton3.Enabled = False Exit Sub End If Me.Caption = "出荷指示書作成（指示書を作成する出荷 ... 更新を行います。対象の出荷データを選んでください）" If Not make引当更新データ(fnGetList, v) Then CommandB ... .Enabled = False Else ListBox1.ColumnCount = 1 End If End Select ListBox1.List = v '以下はユーザーフォー ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201111/20111122110935.txt - [detail] - similar

[[20080421164746]] 1275: 『勤務表について』（勤務）
勤務交番表を作成しています。エリアと時間が有り、エリアには、1,2,3,4, ... 910,11,12,13,F,F1,F2,F3」を一つずつ入力。 P100に =IF(COUNTA(P$13:P$91)=0,"",COUNTIF(P$13:P$91,$O100)) と ... して、AT116迄フィルドラッグ。 P94に =IF(P100="","",SUBSTITUTE(TRIM(IF(P100>1,$O100,"")&" " ... &IF(P101>1,$O101,"")&" "& IF(P102>1,$O102,"")&" "&IF(P ... 103>1,$O103,"")&" "&IF(P104>1,$O104,"")&" "&IF(P105>1,$O105,"")&" "& IF(P ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200804/20080421164746.txt - [detail] - similar

訪問者：カウンタ