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

Results of 201 - 289 of about 289 for cell filename (0.007 sec.)

cell (1170), filename (1981)

[[20160914200311]] 5625: 『ネットを参考に作業してますが、理解出来ない箇所があります』（フィロ）
http://excel-ubara.com/ex ... ますよ。（???） 2016/09/15(木) 14:22 ---- 3.=RIGHT(CELL("filename",顧客一覧!A1),LEN(CELL("filename",顧客一 ... 覧!A1))-FIND("]",CELL("filename",顧客一覧!A1))) 4.=RIGHT(CELL("filename" ... ,項目名!A1),LEN(CELL("filename",項目名!A1))-FIND("]",CELL("filename",項目名!A1))) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201609/20160914200311.txt - [detail] - similar

[[20161227180631]] 8694: 『コピーしたシートの共通の場所の数値を参照する』（ぽんた）
お尋ねします。「H29」というシートがあ ... もしれませんが BA13 : =INDIRECT("H"&SUBSTITUTE(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),"H","")-1&"!BA12") BD13 : =INDIRECT("H"&SUB ... STITUTE(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),"H","")-1&"!BD12") （β） 2016/12/27(火) 20: ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201612/20161227180631.txt - [detail] - similar

[[20170216155002]] 4756: 『グループ化と比較』（たいよう）
お世話になっております。商品の内容を比較し、重複しないように1つ ... ue = .Range("A1:AI1").Value .Range("AJ:AJ").SpecialCells(xlCellTypeVisible).Copy vSh.Range("AP1") vSh.Rang ... plication.DisplayAlerts = True End With uBk.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Des ... ue = .Range("A1:BI1").Value .Range("BJ:BJ").SpecialCells(xlCellTypeVisible).Copy vSh.Range("BP1") vSh.Rang ... plication.DisplayAlerts = True End With uBk.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Des ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201702/20170216155002.txt - [detail] - similar

[[20170219101746]] 4653: 『文字検索時、見つからない時のエラー退避について』（すーさん）
お世話になります。マクロで、氏名 ... C").Select Selection.Find(What:=name, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, _ SearchOrder:= ... n:=xlNext, MatchCase:=False).Activate If Not ActiveCell Is Nothing Then name = InputBox("氏名が見つかりませ ... して下さい。") If Len(name) = 0 Then Windows(konki & filename).Activate ActiveWorkbook.Close SaveChanges:=False ... s("入社年月日").Select Columns("C").Select Set FindCell = Columns("C").CurrentRegion.Find(What:=name) If F ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201702/20170219101746.txt - [detail] - similar

[[20170223003629]] 5197: 『複数ブックのデータをまとめるマクロのデータが重なってしまう』（のんさびぃ）
長年引き継いで使われ ... eet() 'Declaring Variables Dim wbk As Workbook Dim fileName As String Dim myFile As String Dim Path As String ... im LastRow As Long Dim LastColumn As Long Dim StartCell As Range Dim wsheetRange As Range Dim dRange As Ra ... Here Path = Application.ActiveWorkbook.Path & "¥" fileName = Dir(Path & "*.xlsm") Do While Len(fileName) > 0 ... .Open(Path & fileName) 'Setting Last Saved Date in cell B41 Range("A17:L17").Copy wbk.Close erow = Sheet1. ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201702/20170223003629.txt - [detail] - similar

[[20170430205124]] 4911: 『去年のセルの参照と今年のセルをプラスしたい』（まーくん）
データをシート名で2016年度・2017年度と ... したいと言う事でしょうか? AD1 =SUM(INDIRECT(LEFT(MID(CELL("filename"),FIND("]",CELL("filename"))+1,10),4)-1& ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201704/20170430205124.txt - [detail] - similar

[[20170516213730]] 5432: 『sheet1のA1に、sheet2と同じ名前「sheet2」があればsheet1のB1の数値を、sheet2に抽出する』（エクセ ... あるいは4.0マクロ」関数を使って =IF(Sheet1!A1=MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1 ... 義でGET.DOCUMENTあたりを使うことになるのでは。もし、CELL関数のことであればそれは通常のワークシート関数。 (4. ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201705/20170516213730.txt - [detail] - similar

[[20170626134752]] 4996: 『自動で複数セル（一覧）の内容を作成したシートをコピーしシート名にする方法』（oh10）自動で複数セ ... hrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.Merge ActiveCell.Formu ... laR1C1 = _ "=RIGHT(CELL(""filename"",RC[-1]),LEN(CELL(""filename"",RC[-1]) ... )-FIND(""]"",CELL(""filename"",RC[-1])))" Range("B2").Select Windows("Book1").A ... ctivate Range("B1:F1").Select ActiveCell.FormulaR1C1 = _ "=RIGHT(CELL(""filename"",RC[-1]), ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201706/20170626134752.txt - [detail] - similar

[[20170711112617]] 5337: 『シートコピーして参照のセルを1行ずつ下へ』（サトー）
よろしくお願いします。決まった形式で作った ... 思ったように動作しません。 =INDIRECT("sheet1!A"&MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99) ... 少々かぶるが。 =INDEX(Sheet1!A1:A50,SUBSTITUTE(RIGHT(CELL("filename",A1),2),"]","")*1) ではどうか。なお、一 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201707/20170711112617.txt - [detail] - similar

[[20171125161333]] 7891: 『セル中のファイル名拡張子を非表示にしたい』（初心者9371）
宜しくお願いします。下記でセルにファ ... イル名を表示させるコードを使わせ頂いています =MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH ... ("]",CELL("filename"))-SEARCH("[",CELL("filename"))-1) 拡張子 ... el:Excel2013、使用 OS:Windows10 ＞ ---- =MID(CELL("filename"),11,9) で、いかがでしょうか。（隠居じーさん） 20 ... まなさんのご提案で十分だとはおもいますが。 =MID(CELL("filename"),SEARCH("[",CELL("filename"))+1,(SEARCH ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201711/20171125161333.txt - [detail] - similar

[[20171228145612]] 5693: 『複数のシートから文字で検索して1つのシートに集約する票を作りたいです』（やち）
初めて質問します ... すが、無い場合はどうしましょう? こんな時に役立つのがCELL関数です。説明が難しいので端折りますが、以下の数式で ... 存したことがないブックではエラーになります） =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))) これで、MATCH関数をつかって、取り出したい値 ... X('1月'!$A:$E,MATCH($A2,'1月'!$A:$A,0),MATCH(RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FIND(" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201712/20171228145612.txt - [detail] - similar

[[20180329165437]] 8023: 『シート名から日付を』（yaeko）
よろしくお願いしますシート名が平成30年4月という形式で入力され ... れません。（表示はされているのですが） =TEXT(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND ("]", ... CELL("filename",A1))),"0000!/00!/00") どのようにしたらいいでしょう ... Excel:Excel2010、使用 OS:Windows7 ＞ ---- =(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1)))&"1日")*1 ということですか? （bi） 2018/03/2 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201803/20180329165437.txt - [detail] - similar

[[20180403074942]] 6915: 『エクセルの計算式で、「このシートの1つ前」という指定ってできるんでしょうか? 』（tora）
エクセル ... 用 OS:Windows7 ＞ ---- A2:=INDIRECT("'"&TEXT((RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1)))-1),"m月d日")&"'!C10") 他のセル（たとえばA1セ ... ル）にあらかじめ =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))) としておけば =INDIRECT("'"&TEXT(A1-1,"m月d日 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201804/20180403074942.txt - [detail] - similar

[[20180802170951]] 6428: 『MMID関数でファイル名を求めるとエラーになるファイルがある』（お助け下さい）
会社のネットワーク上 ... --- たぶんコレをMIDで加工してるんだと予想しますが =CELL("filename") MID関数云々の前にこの結果がどうなってい ... 8文字目からを反映させたい為、以下の数式です。 =MID(CELL("filename",C7),FIND("[",CELL("filename",C7),1)+8,F ... IND(".",CELL("filename",C7),1)-FIND("[",CELL("filename",C7),1)-8) エラーの ... け下さい） 2018/08/03(金) 13:24 ---- たぶん FIND(".",CELL("filename",C7),1) は拡張子との区切りの.を探している ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201808/20180802170951.txt - [detail] - similar

[[20180821153157]] 4996: 『シートから別シートへ』（やや）
またよろしくお願いします。こういう事をしたいのですが関数を使っ ... します。 (5)B1セルに以下の数式を入力します。 =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))) (6)B2セルに以下の数式を入力します =LEFT(B1, ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201808/20180821153157.txt - [detail] - similar

[[20180831123952]] 4787: 『シート名をセルに反映できますか?』（事務まま）
顧客別シートがずらり30個ほどあります。シート名は ... h Ws In Worksheets If Ws.Name <> "顧客一覧" Then K.Cells(K.Cells(K.Rows.Count, "A").End(xlUp).Row + 1, "A" ... があります。（TAKA） 2018/08/31(金) 13:26 ---- =MID(CELL("filename",$A$1),FIND("]",CELL("filename",$A$1))+1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201808/20180831123952.txt - [detail] - similar

[[20181215111327]] 5792: 『シートコピーで串刺し合計の範囲に反映したい』（けいさん）
串刺し合計の式が、「=sum(第2週:第1週! ... 半平太） 2018/12/15(土) 16:48 ---- 例えば、A1に =MID(CELL("filename",A1),SEARCH("]",CELL("filename",A1),1)+1 ... ,LEN(CELL("filename",A1))-SEARCH("]",CELL("filename",A1),1)) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181215111327.txt - [detail] - similar

[[20181216074654]] 5248: 『シート名を、セルへ転記』（マリン）
各シート名を、セルに転記したいです。 A1-1_12345678 前半を、 ... :Excel2016、使用 OS:Windows8 ＞ ---- シート名 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,2 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201812/20181216074654.txt - [detail] - similar

[[20190220125121]] 5122: 『フォルダの作成』（ろーぐ）
お邪魔します。フォルダをたくさん作成する際に下記のマクロを使ってま ... derName As String '作成するフォルダ名 FolderName = Cells(i, 2).Value Dim NewDirPath As String '作成予定のフ ... 置いてある場所を関数取得で動かしてはどうか A2 =LEFT(CELL("filename"),FIND(">",SUBSTITUTE(CELL("filename")," ... ¥",">",LEN(CELL("filename"))-LEN(SUBSTITUTE(CELL("filename"),"¥",""))),1)-1) ... e("B" & Rows.Count).End(xlUp).Row'（3 FolderName = Cells(i, 2).Value NewDirPath = Path & "¥" & FolderName ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201902/20190220125121.txt - [detail] - similar

[[20190320205657]] 5337: 『関数を使用して名前の抽出』（かず）
関数にて名前の抽出方法を教えて頂きたいです。 A ふじ子（空白 ... ---- 例えば、E1にシート名を表示しておいて =REPLACE(CELL("filename",H1),1,FIND("]",CELL("filename",G1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201903/20190320205657.txt - [detail] - similar

[[20190409175456]] 7309: 『シート名の必要な部分だけをセルに表示したい』（天然水）
シート名をセルに表示する場合、ネットで調 ... べたところ RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))) これを表示したいセルに入力すれば良い事は分か ... が不明ですが、単に1年前にするだけなら、 =LEFT(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),7)-1 （半平太） 2019/04/09(火) 18:14 ---- シ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201904/20190409175456.txt - [detail] - similar

[[20190417163721]] 5415: 『シート名から日付の入力』（サバ缶）
御世話になります、よろしくお願いします。シート名を「2019.0 ... 365、使用 OS:Windows10 ＞ ---- =SUBSTITUTE(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201904/20190417163721.txt - [detail] - similar

[[20190423123523]] 6470: 『シート名を特定セルへ表示』（もん）
=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,1) ... を抜き出したいということであれば =SUBSTITUTE(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201904/20190423123523.txt - [detail] - similar

[[20190425063428]] 5415: 『シート名の（）内を特定セルへ反映させたい』（めんべい）シート名を、特定セルへ表示すると言う質問 ... xcel2016、使用 OS:Windows8 ＞ ---- =SUBSTITUTE(MID(CELL("filename",A1),FIND("（",CELL("filename",A1))+1,10 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201904/20190425063428.txt - [detail] - similar

[[20190613120122]] 9742: 『INDEX関数の引数にCELL関数で求めたシート名を使用するには』（すぎやん）
お世話になります。ブック ... トの値を参照したいと考え、'[BBB]CCC'の部分を 'RIGHT(CELL("filename",A2),LEN(CELL("filename",A2))-FIND("[",C ... ELL("filename",A2)))'にして、 =INDEX('RIGHT(CELL("filename",A2), ... LEN(CELL("filename",A2))-FIND("[",CELL("filename",A2)))'!$B ... :$G,MATCH($B15,'RIGHT(CELL("filename",A2),LEN(CELL("filename",A2))-FIND("[",CELL("filen ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201906/20190613120122.txt - [detail] - similar

[[20190728054346]] 4829: 『賞状をつくりたいです。』（ヨッシー）
A5判の日記の賞状を2枚縦に並べた書式をつくりました。名簿か ... f Next End Sub 氏名欄に名前を入れる数式は、 =RIGHT(CELL("filename",V10),LEN(CELL("filename",V10))-FIND("]" ... ,CELL("filename",V10))) です。どこをどのように変えればい ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201907/20190728054346.txt - [detail] - similar

[[20190926093504]] 6338: 『セルの内容表示したテキストボックスのサイズの自動化』（FALCON）
よろしくお願いします AA1セルに ... =MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIN ... D("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1) で ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201909/20190926093504.txt - [detail] - similar

[[20191001181125]] 4619: 『複数のシートに同時に計算式を入れる』（ゆきひょう）
よろしくお願いいたします。エクセル2019を使っ ... るかどうかわかりませんが =INDIRECT("Sheet1!A"&RIGHT(CELL("filename"),1)-1) こんな感じの式でも（´・ω・`） 2 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191001181125.txt - [detail] - similar

[[20191004095444]] 10077: 『セルにsheet名の一部を抽出する』（けい）
sheet名すべてを抽出する関数は見つけられたのですが、she ... いるsheet名のすべてを抽出する関数は下記です。 =RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("f ... うでしょうか? 長くなるので作業セルを使って A1 =RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("f ... (金) 10:05 ---- シート名を求める式を =REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") として後ろ ... 五文字を覗く場合は =REPLACE(LEFT(CELL("filename",A1),LEN(CELL("filename",A1))-5),1,FIND( ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191004095444.txt - [detail] - similar

[[20191007175520]] 4954: 『文字列の1文字目によって異なるシートへ移動し、同じ文字列を探す』（MSCL）
長くてすみません。VBA初 ... on.Caller).Text Sheets("シートA").Select Set rng = Cells.Find(What:=CBName) '4ケタが一致するセルを探す If ... Nothing Then MsgBox "見つかりませんでした。" Else Cells(rng.Row, "D").Select 'その行のD列へ移動 End If En ... にしました。シート1A A列………B列 A123………=RIGHT(CELL("filename",A3),LEN(CELL("filename",A3))-FIND("]",CELL("filen ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191007175520.txt - [detail] - similar

[[20191028173152]] 5457: 『ブックを閉じた状態でINDIRECT関数を使ったような動作をさせたい』（sato）
お世話になります。 =IF( ... $B8="","",INDEX(INDIRECT("'[AAA.xlsx]"&REPLACE(CELL("filename",A4),1,FIND("]",CELL("filename",A4)),"") ... '!$B:$G"),MATCH($B8,INDIRECT("'[AAA.xlsx]"&REPLACE(CELL("filename",A4),1,FIND("]",CELL("filename",A4)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201910/20191028173152.txt - [detail] - similar

[[20191105162505]] 7343: 『pdf化の際のセル幅』（ポテチくん）
初めて質問させていただきます。下記VBAコードにpdf出力した際の ... -------------------------- Const PRINT_START_INDEX_CELL = "B3" Const PRINT_END_IDEX_CELL = "B4" Const PRIN ... T_INDEX_CELL = "B2" Const SAVE_FILE_NAME_CELL = "B12" '-------- ... tiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=savePath, _ Quality:=xlQualityStandard, _ OpenAft ... On Error GoTo ERR_EXIT If Range(PRINT_START_INDEX_CELL).Value > Range(PRINT_END_IDEX_CELL).Value Then Msg ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191105162505.txt - [detail] - similar

[[20191128211313]] 5164: 『シート毎に参照セルをずらしていく』（な）
はじめまして。よろしくお願いします。一覧シート、シー ... 8 ＞ ---- =IFERROR(INDIRECT("一覧シート!A"&REPLACE(CELL("Filename",A1),1,FIND("]シート",CELL("Filename",A1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191128211313.txt - [detail] - similar

[[20191130103048]] 5286: 『ファイルを開くVBA』（むじゅかしい）
はじめまして。よろしくおねがいします。今、社内で社員だれも ... んな感じです。 Sub コマンド追加() With CommandBars("cell").Controls.Add(Before:=1, Type:=msoControlPopup) . ... ntrol '標準状態にリセット Application.CommandBars("Cell").Reset '全てのメニューを一旦削除 For Each cmdBra1 ... O = CreateObject("Scripting.FileSystemObject") Dim Filename Filename = FSO.GetFileName(Filepath) 'filenameと同 ... kbook Set workbookWithSameName = getWorkbookByName(Filename) '同名のエクセルブックがあるときはNothing「ではない ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201911/20191130103048.txt - [detail] - similar

[[20191203164132]] 6300: 『タブ名をタイトルに』（チョコビ）
Excelで説明文を作成した場合にタブで『はじめに』『1章』『2章』 ... 使用 Excel:Office365、使用 OS:Windows10 ＞ ---- 「=CELL("filename",A1)」とかやれば、自シート名（ブック名と ... を書き換えるとか。（???） 2019/12/03(火) 17:46 ---- Cell関数には、別のシートのセル参照も渡せるので =RIGHT(CE ... LL("filename",'1章'!A1),LEN(CELL("filename",'1章'!A1))-SEARCH(" ... ]",CELL("filename",'1章'!A1))) で。 HyperLink関数を使うと便 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201912/20191203164132.txt - [detail] - similar

[[20191206104715]] 9952: 『シート名でデータを参照させる関数』（右近）
お尋ねいたします。 =IFERROR(INDIRECT("H"&SUBSTITUTE ... (RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),"H","")-1&"!W12"),0) この関数は、シートをコ ... --- =IFERROR(IFERROR(INDIRECT("H"&SUBSTITUTE(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),"H","")-1&"!W12"),INDIRECT("R"&SUBSTITUTE(R ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201912/20191206104715.txt - [detail] - similar

[[20200117173145]] 4768: 『最終行まで取得して、コピペを繰り返す（ペーストセルは固定）』（SARA）こんばんは。あらゆるもの ... して、+1のような感じで、できないでしょうか。。。 n = Cells(Rows.Count, "A").End(xlUp).Row 下記作業を繰り返し ... です。 --------------------------------------------- Cells.Find("お礼の名前").Select Selection.Offset(1, 0). ... e ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _ "¥pass¥" & Range("B1").Value & "_" & Range("E1 ... S = Worksheets(i) End Select Next With WsS Base = .Cells(1).CurrentRegion End With With Ws1 For i = 2 To U ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202001/20200117173145.txt - [detail] - similar

[[20200203145806]] 5080: 『シフトの抽出』（小次郎）
シフト表からD勤務者だけ抽出したいです。シフト表はF8からAJ8まで日付（ ... sheets("Sheet1") .UsedRange.Clear For i = 1 To 31 .Cells(8, i + 5) = D .Cells(8, i + 5).NumberFormatLocal ... = "m/d" D = D + 1 Next For i = 11 To 11 + 17 .Cells(i, "E") = "職員-" & CStr(i - 8) Next For Each r I ... X(シフト表!$F$11:$AJ$27,0,MATCH(TEXT(REPLACE(CELL("filename",$A$1),1,FIND("]行動詳細表",CELL("fileName",$A$1)) ... 7,INDEX(シフト表!$F$11:$AJ$27,0,MATCH(TEXT(REPLACE(CELL("filename",$A$1),1,FIND("]",CELL("fileName",$A$1)) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200203145806.txt - [detail] - similar

[[20200212101340]] 5248: 『シート名からの計算式の変更』（はち）
シート名を「1月A」「1月B」とし, 以後「2月A」「2月B」とコピ ... ows10 ＞ ---- =100*INDIRECT(SUBSTITUTE("'"&REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200212101340.txt - [detail] - similar

[[20200221130642]] 5500: 『ブックAにブックBの複数あるシートの同名シート特定セルの値を引用したい』（ケイ）
関数で対応出来る ... 5 ---- あ、勘違い。 =INDIRECT("[BookB.xlsx]"&RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1)))&"!A1") みたいな感じでしょうか。（ろっくん） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200221130642.txt - [detail] - similar

[[20200222194525]] 4996: 『シート名の取得』（ほーむぱい）
マクロを勉強中です A列に行番号にシート名とコード番号を組み合わせ ... Worksheets(1).Name For i = 5 To 最終行 ActiveSheet.Cells(i, "A").Value = "シート名:" & sheetName & " 行番号 ... ).Name これを使うなら、最終行 = Sheets(sheetName).cells(rows.count,3).end(xlup).row （BJ） 2020/02/22(土) ... k） 2020/02/25(火) 17:59 ---- A5=ROW()&RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202002/20200222194525.txt - [detail] - similar

[[20200410104055]] 7010: 『別ファイルのファイル名を自動取得したい』（ふぅ）
テスト1.xlsx テスト2.xlsxの二つのファイルを開 ... どうしたらいいのでしょうか? テスト2のセルA1には =MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]", ... CELL("filename"))-FIND("[",CELL("filename"))-1) 別のセルには =IND ... Excel2016、使用 OS:Windows10 ＞ ---- =REPLACE(LEFT(CELL("filename",[テスト1.xlsx]Sheet1!A1),FIND("]",CELL( ... "filename",[テスト1.xlsx]Sheet1!A1))-1),1,FIND("[",CELL("fil ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200410104055.txt - [detail] - similar

[[20200428131042]] 7681: 『月末在庫を翌月のシートの月初に入れたい』（くますけ）
はじめまして。知恵を貸してください。シー ... だいぶあれな式ですが、 AN2セルへ =INDIRECT(MID(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),1,LEN(RIGHT(CELL("filename",A1),LEN(CELL("f ... ilename",A1))-FIND("]",CELL("filename",A1))))-1)-1*1&"月!AO"&ROW()) 以下、下へ ... 名が入っていると思っているわけでなく、 =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filen ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200428131042.txt - [detail] - similar

[[20200430171543]] 6045: 『シート名の一部をそのシートの特定のセルへ入力』（ヒデさん）
お願いします。複数のシートに"001佐 ... 019、使用 OS:Windows10 ＞ ---- 特定のセルに、 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,ISN ... UMBER(RIGHT(MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,4), ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200430171543.txt - [detail] - similar

[[20200511113538]] 4576: 『リストの文字列を使い、参照して開く』（noa）
（他の質問[[20200510143625]]が完了していない状態で ... sworkbook.Path & "¥サブフォルダ1￥" workbooks.open filename:=thisworkbook.path & "¥サブフォルダ1" & range("A1" ... kbooks(zProgramID) With zTb.Worksheets(1) zWbnm = .Cells(1, 1) zWsnm = .Cells(1, 2) End With zTb.Worksheet ... ksheets(zWsnm).UsedRange).Copy _ zTb.Worksheets(2).Cells(1) zWB.Close False Set zWB = Nothing Set zTb = No ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200511113538.txt - [detail] - similar

[[20200514151107]] 5792: 『前日シート参照』（ヤマダ）
1日午前 1日午後 : : 31日午後のような各シートのその日の最終在庫を次 ... 1セルを持ってくるとして。 =INDIRECT(-LOOKUP(1,-MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,{1, ... "の部分の］がどこから来たものかわからないのですが =CELL("filename",A1) をどこかのセルに入力してみればわかり ... ます。 CELL("filename",A1)はシート名でシート名を取得することができますが ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202005/20200514151107.txt - [detail] - similar

[[20200606031114]] 6926: 『数式内の月をシート名から抽出』（ニシポン）
下記数式の月の部分（5月）をシート名から抽出する方法 ... です。下記式で解決しました。 A2=SUBSTITUTE(TRIM(MID(CELL("filename",A2),FIND("]",CELL("filename",A2))+1,10) ... 6(土) 06:55 ---- 確認だけ＞A2=SUBSTITUTE(TRIM(MID(CELL("filename",A2),FIND("]",CELL("filename",A2))+1,10) ... 12月」になればいいのなら =MOD(SUBSTITUTE(MID(CELL("filename",A2),FIND("]",CELL("filename",A2))+1,10),"月","")- ... 2,12)+1&"月" または =TEXT(EDATE(MID(CELL("filename",A2),FIND("]",CELL("filename",A2))+1,10) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200606031114.txt - [detail] - similar

[[20200624110528]] 5500: 『横のデータをシートごとに分けて参照したい』（ねこんばっと）
日氏名シフト出勤退勤休憩氏名 ... NDEX(INDEX(出勤簿まとめ!B:L,MATCH(-LOOKUP(1,-RIGHT(CELL("filename",A2),{1,2})),出勤簿まとめ!$A:$A),0),(ROW ... NDEX(INDEX(出勤簿まとめ!B:L,MATCH(-LOOKUP(1,-RIGHT(CELL("filename",A2),{1,2})),出勤簿まとめ!$A:$A,0),0),(R ... のものです、 Aの1はシート名です。 A1に、 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,2) と入力すれ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200624110528.txt - [detail] - similar

[[20200624125751]] 4619: 『セルの値と同じシート名に転記』（だいき）
どなたかご教示ください。 "一覧"シートのA〜Iの2行目以降 ... e For Each c In Sheets("一覧").Range("A:A").SpecialCells(2) c.Resize(, 11).Copy Sheets(c.Value).Range("A" ... R(INDEX(一覧!B$1:B$10,SMALL(IF(一覧!$A$1:$A$10=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,5), ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202006/20200624125751.txt - [detail] - similar

[[20200827150044]] 4572: 『Rangeの中のCells』（k）
Sub 請求書作成() Dim rowsData As Long, rowsClient As Long rowsData = w ... sData.Cells(Rows.Count, 1).End(xlUp).Row '請求データの最終行数 ... rowsClient = wsClient.Cells(Rows.Count, 1).End(xlUp).Row '取引先マスタの最終行 ... 'お支払期限 'ファイル名を生成して保存して閉じる Dim fileName As String fileName = ThisWorkbook.Path & "¥" & For ... "yyyymm") & "請求書_" & client & ".xlsx" wb.SaveAs fileName wb.Close Next n End Sub ★の部分なのですが ★wsData. ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202008/20200827150044.txt - [detail] - similar

[[20200918200147]] 4668: 『VBA VLOOKUPについて』（ピノ）
いつもお世話になっております。前回質問させていただいた内容と少し ... トデータをエクセル形式にして開く Workbooks.OpenText Filename:= _ "C:¥Users¥mi¥Desktop¥ライブラリー¥週間発注表作 ... = Format(Date + 11, "mmdd") ActiveWorkbook.SaveAs Filename:=MyPath & "¥" & "週間発注" & 開始日 & "-" & 終了日 ... 有難う御座います。 http://officetanaka.net/excel/vba/cell/cell03.htm （ピノ） 2020/09/19(土) 20:55 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202009/20200918200147.txt - [detail] - similar

[[20201112000911]] 4702: 『別シートに抽出後,自動的に行数が変化し,最後の行に平均値も出すマクロの作り方。』（そら）
関数やV ... 8 愛知 [5] 平均 115.7 26.3 638 まず最初に、 G2=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,20) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202011/20201112000911.txt - [detail] - similar

[[20201206230649]] 4450: 『フォルダ内の全シートデータ集計』（山口）
フォルダ内の全シートの指定セルデータを集計したいのです ... 目のシートを指定している ThisWorkbook.Sheets("集計").Cells(row, "A").Value = ws.Range("A4").Value ThisWorkbo ... ok.Sheets("集計").Cells(row, "B").Value = ws.Range("C4").Value ThisWorkbo ... トを追加（非表示でもよい） 2）A1:自ブック A2:=CELL("filename",A1) A3:=MID(A2,1,FIND("[",A2)-1) A4:=MID(A2,FIND( ... i」番目のシートをセット ThisWorkbook.Sheets("集計").Cells(row, "A").Value = .Name ThisWorkbook.Sheets("集計 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202012/20201206230649.txt - [detail] - similar

[[20210210111336]] 5290: 『ハイパーリンクのシートコピー』（青のり）
ハイパーリンクで教えてくださいまず1というシートでセル ... へのハイパーリンクの場合です。 =HYPERLINK("#"&RIGHT(CELL("filename",A2),LEN(CELL("filename",A2))-FIND("]",C ... ELL("filename",A2)))&"!A5","aa （OK） 2021/02/10(水) 11:40 ---- ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202102/20210210111336.txt - [detail] - similar

[[20210303104129]] 7483: 『filename関数?』（こんにちは）
教えて頂きたいです。下記の関数がはいっているのですが、わたしには ... く教えて頂けると幸いですよろしくお願いします。 MID(CELL("filename",$U$4),FIND("]",CELL("filename",$U$4))+1 ... ＜使用 Excel:Excel2010、使用 OS:Windows10 ＞ ---- filenameはCELL関数の引数です。 >簡単にいうとファイル名を呼ぶ ... という関数たのでしょうか? filenameを指定するとそうなります。 https://dekiru.net/articl ... e/4431/ （コナミ） 2021/03/03(水) 11:08 ---- CELL("filename",$U$4) これはCELL関数です。ファイル名と ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202103/20210303104129.txt - [detail] - similar

[[20210511221754]] 5206: 『累計のシートから別シートへ反映させるにはどうすればいいですか?』（exエツコロジー）
〜1カ月分の日 ... ＞ ---- 適当です。 =INDEX(累計!A:A,SUBSTITUTE(MID(CELL("filename"),FIND("]",CELL("filename"))+1,999),"日" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202105/20210511221754.txt - [detail] - similar

[[20210513174945]] 6909: 『RangeとCellsによるPrintAreaの指定』（ゆき）
お世話になります、ゆきと申します。基礎的なところだ ... で失礼します。 Excelのシートの一部範囲を変数（RangeとCellsの組み合わせ）で指定して、PDFで印刷したいと考えてお ... を作成しましたが、エラーが出てしまいました。 RangeやCellsの前に「.」を噛ませてもみた（それが正しいのかもよく ... im myRange As Range Dim S_FilePath As String Dim S_FileName As String S_FilePath = Range("A1").Value S_FileNam ... , xlValues, xlWhole) If myRange Is Nothing Then T_Cell = InputBox("タイトル行を見つけられませんでした。印 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202105/20210513174945.txt - [detail] - similar

[[20210729133349]] 6590: 『ファイル名からセルに一部抽出』（カンタ）
要約通りファイル名からセルへ一部抽出したいと思っていま ... す。ネット情報ではCELL関数が使えるとの見ましたがいまいちわかりませんでした ... cel2016、使用 OS:Windows10 ＞ ---- ＞ネット情報ではCELL関数が使えるとの見ましたがいまいちわかりませんでした ... 張子を除いたファイル名を表示 A1 =REPLACE(LEFT(CELL("filename",A1),FIND(".",CELL("filename",A1))-1),1,FIND("[",C ... ELL("filename",A1)),"") B1、C1、D1がセル1〜3だとして B1 =MID(A1, ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202107/20210729133349.txt - [detail] - similar

[[20210802121204]] 5710: 『ファイル名からセルに一部抽出2』（カンタ）
要約通りファイル名からセルへ一部抽出したいと思ってい ... BQ1:ファイル名（引用するためのセル） =REPLACE(LEFT(CELL("filename",A1),FIND(".",CELL("filename",A1))-1),1, ... FIND("[",CELL("filename",A1)),"") AI3:【12345678】 ※8桁固定で変わ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202108/20210802121204.txt - [detail] - similar

[[20211007153957]] 5122: 『別シートの複数セルからデータを転記したい』（VBA初心者）
以下のような一覧表を作成しましたが、関 ... 値が自動で入力される関数を設定しています。 X1 =RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))) よろしくお願いします。（VBA初心者） 2021/1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202110/20211007153957.txt - [detail] - similar

[[20211105125020]] 6129: 『INDIRECT関数の逆』（ピスタチオまちこ）
シート名と一致する値を表示させたいのですが、下記の関数 ... けますでしょうか。 =INDEX(AllData!L:L,MATCH(REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),),A ... は数式の REPLACE に「1」を掛けて数値化するか REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),)*1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202111/20211105125020.txt - [detail] - similar

[[20211124063839]] 4592: 『タブ区切り出力が処理できない』（kenN）
指定のセル範囲をタブ区切りでTEXTファイルに出力（保存）し ... th As String Dim LSN As Double '処理列の個数 LSN = Cells(Rows.Count, "A").End(xlUp).Row 'ファイル名を変数に ... .DisplayAlerts = False '出力セルを選択 Range("D1", Cells(LSN, "F")).Select '新規ブック作成→出力するセルを新 ... Copy ActiveSheet.Range("A1") ActiveWorkbook.SaveAs Filename:=fPath, FileFormat:=xlText ActiveWindow.Close Appl ... いのかな予めコピーしておけばよいのでは Range("D1", Cells(LSN, "F")).Copy （どん） 2021/11/24(水) 06:52 --- ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202111/20211124063839.txt - [detail] - similar

[[20220105140220]] 5625: 『シート名』（E）
シート名を日付（12月25日なら"1225"）にしていて、そのシート中のセル?@に関数 =R ... IGHT(@CELL("filename",A1),LEN(@CELL("filename",A1))-FIND("]", ... @CELL("filename",A1))) ↑を入れてシート名を読み込み別のセ ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202201/20220105140220.txt - [detail] - similar

[[20220110095123]] 5591: 『他のシートへリンクのコピー』（AAK）
シート1の上部にシート1内の表(行数がたくさんある)の項目にジ ... ピーしたシートのA1とかという意味でしたか? でしたら、cell関数でシート名を取得するですか? （Copyright） 2022/0 ... 0(月) 10:40 ---- だめでした。 =HYPERLINK("#" & MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,1 ... で挟んだら出来ましたよ。 =HYPERLINK("#'" & MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,10) & "'!G1 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202201/20220110095123.txt - [detail] - similar

[[20220602135928]] 4911: 『シート1の情報を支店ごとに各シートに振り分けたい』（初心者★）
初心者です。シート1に元々ある情報 ... TE(15,6,ROW($2:$1500)/(Sheet1!$A$2:$A$1500=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202206/20220602135928.txt - [detail] - similar

[[20220707154355]] 5843: 『セルの値と同じブックを開き編集する』（初心者向け）
よろしくお願いします。やりたいことは 1 Boo ... 製品B 部品3 部品2 3 製品C 部品1 部品3 Sub TEST() Dim CELL As String CELL = Range("A1").Value & ".csv" Workbo ... oks.Open Filename:="C:¥Users¥SUWA1029¥Desktop¥" & CELL よろしくお願い ... い。（γ） 2022/07/08(金) 07:59 ---- Sub TEST() Dim CELL As String Dim LastRow As Long CELL = Range("A1").V ... alue & ".csv" Workbooks.Open Filename:="C:¥Users¥USER¥Desktop¥" & CELL ActiveWorkbook.Sa ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202207/20220707154355.txt - [detail] - similar

[[20220819095047]] 5206: 『シート名が変わる表でVLOOKUPを使用したい。』（ハナナ）
複数ブックに使えるテンプレートとして、シ ... 照先が Sheet2だった場合、シート名指定部を、 =RIGHT(CELL("filename",Sheet2!B2),LEN(CELL("filename",Sheet2!B ... 2))-FIND("]",CELL("filename",Sheet2!B2))) とかは如何ですか? _ 所で、 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202208/20220819095047.txt - [detail] - similar

[[20220917185717]] 7848: 『過去ログから:『マクロを使わずにシートの更新日付をどこかのセル』について』（マナ）
[[2021050213 ... のA1セルにそのシートの更新日を表示する場合。 =IF(OR(CELL("filename")<>CELL("filename",A1),CELL("address")=" ... はA1セルに入力しているだろうか? あと念のためセルに =CELL("address") =CELL("filename") と入力したらなんと表示 ... されるか確認してほしい。なおfilenameのほうは一度保存しないと表示されないはず。 >通常使用 ... るか理解しました。 1)Sheet6に下記式を入力 A1:=IF(OR(CELL("filename")<>CELL("filename",A1),CELL("address")=" ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202209/20220917185717.txt - [detail] - similar

[[20220922115035]] 5080: 『数式の中のシート名を数式で取り出す』（ひで）
お願いします。セルに[2022-1.xlsm]16'!$AB$8+31 と ... ることは可能でしょうか。シート名を表示するには =MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,31) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202209/20220922115035.txt - [detail] - similar

[[20220930142746]] 5337: 『PowerQuery クエリのプロパティーの名前を取り込む』（なるへそ）
いつもお世話になります PowerQuer ... まで余裕みてコピーしています =IF($AF2<>"",RIGHT(LEFT(CELL("filename",A2),FIND(".",CELL("filename",A2))-1),6) ... ます =IF(INDIRECT("AF2:AF2000")<>"",RIGHT(TEXTAFTER(CELL("filename",A1),"]",-1),6),"") （マナ） 2022/09/30( ... -- こうか =IF(INDIRECT("A2:A2000")<>"",RIGHT(CELL("filename",A1),6),"") （マナ） 2022/09/30(金) 18:46 ---- γさ ... る方法を頂き =IF(INDIRECT("A1:A2000)<>"",RIGHT(LEFT(CELL("filename",A1),FIND(".",CELL("filename",A1))-1),6) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202209/20220930142746.txt - [detail] - similar

[[20221021190454]] 4954: 『別のシートと重複するものを返す方法』（名無しのとうしろ）
Sheet1とSheet2で同じデータがあった場 ... るように思います。 =TEXT(DATEVALUE(SUBSTITUTE(RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",C ... ELL("filename",A1))),".","/"))-1,"mm.dd") なので、たとえばI1セル ... Dim MyRNG As Range With ActiveSheet For 行 = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row If WorksheetFunct ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221021190454.txt - [detail] - similar

[[20221025160504]] 4702: 『CSV出力のブランクについて』（minoru）
お世話になります csvシートの値をcsv出力するため, 本サイト ... はどこを修正すればよろしいでしょうか? csvシートでは =cell("type",a1) 戻り値が b ですが出力したcsvファイルは ... Dim c As Range Dim i As Long i = Worksheets("csv").Cells(Rows.Count, 1).End(xlUp).Row outputFile = Workshe ... cation.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=myPath & outputFile _ , FileFormat:=xlCSV, Create ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202210/20221025160504.txt - [detail] - similar

[[20221118224914]] 6768: 『名前を指定したブックから新規ブックへ値をコピー』（AIMS）
お世話になります。やりたいことコピー ... A3にマクロ実行のボタンがあります Sub コピペ() Dim cell As String Dim LastRow As Long Dim wb As Workbook D ... im moto As Workbook cell = Range("A1").Value & ".xlsm" Workbooks.Open Filen ... t SavePath = "C:¥Users¥ABC¥Desktop¥TEST¥TEST¥" Dim FileName As String Dim i As Integer FileName = SavePath & " ... "sheet1").Range("A2").Value & ".xlsx" Do While Dir(FileName) <> "" i = i + 1 FileName = SavePath & "AAA-" & Wo ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202211/20221118224914.txt - [detail] - similar

[[20230310011733]] 6005: 『集計マクロがうまくいきません』（ねね）
作りたいコードに関してうまくできず、アドバイス頂ければ幸 ... sheetNumber As Integer Dim linkRange As Range Dim cell As Range Dim destSheet As Worksheet ' 新しい変数の ... ile <> "" ' ファイルを開く Set wb = Workbooks.Open(fileName:=searchFolder & file, ReadOnly:=True, UpdateLinks: ... nge = ws.Range("G64:AM64") ' リンクを貼る For Each cell In linkRange.Cells pasteRange.Offset(cell.Row - li ... i = 1 Do While file <> "" Set wb = Workbooks.Open(Filename:=searchFolder & file, ReadOnly:=True, UpdateLinks: ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202303/20230310011733.txt - [detail] - similar

[[20230330180154]] 4899: 『【VBA】現在のブックを、指定セルの値を名前として保存し、Outlookメールに添付したい』（はる）
初め ... al Target As Range) On Error Resume Next If Target.Cells.Count > 1 Then Exit Sub Set xRg Intersect(Range(" ... .Subject="○○" .Body xMailBod .This Workbook.SaveAs Filename:="T:ファイルの保存先パス"& ThisWorkbook(Range("A1" ... が、分かる範囲で回答します。 .This Workbook.SaveAs Filename:="T:ファイルの保存先パス"& ThisWorkbook(Range("A1" ... /questions/68919366/send-to-email-address-saved-in-cell ここから持ってきたのかな? 試してないけど、整頓する ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202303/20230330180154.txt - [detail] - similar

[[20230414015210]] 5938: 『同じフォルダ内にあるブックのシートを集計シートに値で転記するには』（きり）
複数のシートを串刺し ... 列のままでした。 Option Explicit ' Sub Macro1() Dim FileName As String ' FileName = Dir(ThisWorkbook.Path & "¥* ... sx") Application.ScreenUpdating = False ' Do While FileName > "" Workbooks.Open ThisWorkbook.Path & "¥" & File ... se, True FileName = Replace(FileName, ".xlsx", "") Cells.Copy ThisWorkbook.Sheets(FileName).[A1] ActiveWor ... kbook.Close False FileName = Dir Loop End Sub あちこち調べてみて試したのですが ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202304/20230414015210.txt - [detail] - similar

[[20230425133434]] 4534: 『名前に日付の入ったブックの参照したいです』（momoka）
日付入りのエクセルファイルをマクロで開こう ... ¥デスクトップ¥データ-20230424.xlsx" Workbooks.Open Filename:=SetFile, ReadOnly:=True, UpdateLinks:=0 Set wbSak ... 関数でも...ファイルパスを取得することができますよ、 CELL関数、FIND関数、LEFT関数などなど一例 VBAを使わずに ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202304/20230425133434.txt - [detail] - similar

[[20230607214141]] 5625: 『ファイルネームを関数の中に+α』（kyo）
閲覧ありがとうございます。 Excelのファイルネームを引用し ... 右のシートの月初在庫に。 ●できたこと =INDIRECT(RIGHT(CELL("filename",A1),4)-1&"!AP3") ファイルネームの中の右 ... の管理を行います。単純なコピペでは『=INDIRECT(RIGHT(CELL("filename",A1),4)-1&"!AP3")』の最後のAP3が変わらず ... 6、使用 OS:Windows10 ＞ ---- =INDIRECT(RIGHT(CELL("filename",A1),4)-1&"!AP"&ROW()) ‾‾‾‾‾‾‾‾‾ こういうこと? （笑 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202306/20230607214141.txt - [detail] - similar

[[20230615145439]] 4752: 『EXCEL VBA sheet1を新規BOOKにコピー、名前をつけて保存』（kashi）
VBA素人となります。タイトル通り ... office.com/documents/excel/2266-excel-save-file-as-cell-value.html （白茶） 2023/06/15(木) 18:17:35 ---- ＞ ... _ :=False, Transpose:=False ActiveWorkbook.SaveAs Filename:="C:¥Users¥221882¥Desktop¥test.xlsx", _ FileFormat ... eet1").Range("A1") & ".xlsx" ActiveWorkbook.SaveAs Filename:=filePath, _ FileFormat:=xlOpenXMLWorkbook, Create ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202306/20230615145439.txt - [detail] - similar

[[20230620143850]] 5551: 『複数シートの統合』（マクロって難しい）
よろしくお願いいたします。個々の営業担当が持っている案 ... ivate Sub 前回データの削除() Sheets("統合").Select Cells.Select Selection.ClearContents Sheets(Array("一山 ... .Delete End Sub Private Sub シートの読み込み() Dim Filename As String Dim IsBookOpen As Boolean Dim OpenBook A ... ¥" 'ここで読み込むフォルダを直接指定する" End With Filename = Dir("*.xlsx") Do While Filename <> "" If Filenam ... se r = 2 '最初以外は2行目から取得 End If MaxRow = .Cells(Rows.Count, 1).End(xlUp).Row '1列目で最終行を取得 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202306/20230620143850.txt - [detail] - similar

[[20230628132711]] 4867: 『VBAで指定の画像を呼び出したいです』（もっちゃん）
VBAで指定のファイルから画像を取り出す方法はあ ... に貼り付ける Set shp = ActiveSheet.Shapes.AddPicture(fileName:="C:¥dbjpg¥", LinkToFile:=False, SaveWithDocument: ... の位置を調整 .Left = .Left + 10 .Top = .Top + (ActiveCell.Height - .Height) / 2 '画像の幅が、画像の高さ×0.8よ ... の位置を調整 .Left = .Left + 10 .Top = .Top + (ActiveCell.Height - .Height) / 2 End If End With End Sub ---- ... ードの中で、 Set shp = ActiveSheet.Shapes.AddPicture(fileName:="C:¥dbjpg¥", LinkToFile:=False, SaveWithDocument: ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202306/20230628132711.txt - [detail] - similar

[[20230713094340]] 5269: 『複数ブックの指定列を抽出し、新規ブックの1シートに横に並べて貼りつけ』（ケッタリー）
初めまして ... 。 Sub ExtractAndPaste() Dim filePath As String Dim fileName As String Dim newWorkbook As Workbook Dim targetSh ... pasteRange As Range Dim extractRange As Range Dim cell As Range ' 作業フォルダのパスを取得 filePath = Thi ... kbook.Sheets(1) ' フォルダ内の各ブックについて処理 fileName = Dir(filePath & "*.xlsx") Do While fileName <> "" ... 出したデータを新しいブックに貼り付け If targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Colum ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202307/20230713094340.txt - [detail] - similar

[[20231018110055]] 7127: 『括弧内文字削除のマクロで質問』（まっつん）
テキストファイル内の括弧内の文字列（括弧も含んで）を ... ファイル（txt)を選択（読み込み) --------------- Dim FileName As Variant Dim FileName2 As String Dim FilePath As ... String Dim fso As New FileSystemObject FileName = Application.GetOpenFilename(FileFilter:="Excelフ ... ------------------------- Dim RegExp As Object Dim Cell As Range ' Set RegExp = CreateObject("VBScript.Reg ... creenUpdating = False Columns("A").Select For Each Cell In Selection Cell = RegExp.Replace(Cell, "") Next ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202310/20231018110055.txt - [detail] - similar

[[20231102142051]] 4871: 『先頭文字ごとにシート分け』（はせぴぃ）
特定の列に入れた文字を(A1,A2,…) 頭文字ごとに別のシートへ ... 5,6,ROW($1:$1000)/(LEFT(Sheet1!A$1:A$1000)=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231102142051.txt - [detail] - similar

[[20240208144349]] 4649: 『ファイルの削除』（増毛）
外付けHDDに最初が、「アルファベット3桁の(又は4桁)-3桁数字+半角スペース ... ach file In folder.Files 'ファイル名をB列に出力 ws.Cells(row, 2).Value = file.Name 'フルパスをC列に出力 ws ... .Cells(row, 3).Value = file.path '行番号をインクリメント ... e = caption If Not IsMissing(iniPath) Then .InitialFileName = iniPath If .Show Then FolderPicker = .SelectedIt ... ts("Sheet1") .Columns("B:C").Clear .Range("B1") = "FileName": .Range("C1") = "FullPath" If dic.Count > 0 And d ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202402/20240208144349.txt - [detail] - similar

[[20240311130826]] 5792: 『キー毎に別シートに移動(コピペ)』（FRISK）
A列にキーになる「商品CD」があります。「商品CD」毎に ... セルに =FILTER(シート1!A2:D50,シート1!A2:A50=REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ... ート名を商品CDに変更する、ではどうだろうか? REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"") ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202403/20240311130826.txt - [detail] - similar

[[20240319125749]] 4954: 『別シートの対象セルをカウントする方法』（ゆきんこ）
いつもお世話になっております。どうかお知恵を ... v() Dim zD Dim var With Worksheets("Sheet1") v = .Cells(1).CurrentRegion.Value End With Set zD = CreateOb ... ) Then Sheets.Add.Name = var With Worksheets(var) .Cells(2, 2) = zD(var) End With Next Erase v zD.RemoveAl ... かなぁ。。 =SUMIF(アンケート結果!A:A,TEXTAFTER(CELL("filename"),"]"),アンケート結果!B:B) （半平太） 2024/03/19(火 ... > （隠居Z） 2024/03/19(火) 13:58:31 ---- TEXTAFTER(CELL("filename"),"]")、、、すごいですね!!! こちらの関数 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202403/20240319125749.txt - [detail] - similar

[[20240319170822]] 4576: 『シート名をキーにして別シートのデータをカウントする方法』（ゆきんこ）
先ほどシート名を読み込む関 ... T） 2024/03/19(火) 22:22:16 ---- A1セル =TEXTAFTER(CELL("filename",A1),"]") B1セル ={"〇","△","×"} B2セル ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202403/20240319170822.txt - [detail] - similar

[[20240413085244]] 4750: 『マクロで各シートの表を条件に沿ってファイルを分割したい』（ぽぽ）
表題の件、教えてください。マ ... イルを読み取り専用で開く Set 分割元 = Workbooks.Open(Filename:=ThisWorkbook.Sheets("設定").Range("A2").Value, Re ... Sheets If ws.name <> "まとめ" Then For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row If Not MyDic.Ex ... ists(ws.Cells(i, 1).Value) Then MyDic.Add ws.Cells(i, "A").Valu ... イルを読み取り専用で開く Set 分割元 = Workbooks.Open(Filename:=ThisWorkbook.Sheets("設定").Range("A2").Value, Re ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202404/20240413085244.txt - [detail] - similar

PREV 1 2 3 NEXT

訪問者：カウンタ