Results of 1 - 1 of about 28 for 平均 平日 (0.001 sec.)
平均 (1366), 平日 (459)
- [[20150213155145]]
- #score: 10343
- @digest: 4dc44f55519e977baa0d2c47aba99084
- @id: 67273
- @mdate: 2015-02-13T07:49:10Z
- @size: 2829
- @type: text/plain
- #keywords: getnames (33606), targetcol (16358), openfilename (13312), 一二 (8926), 二三 (8647), sheetname (6941), 象ワ (5492), 得sh (4348), executeexcel4macro (3583), 前] (2349), ク,* (2157), 計] (2109), vbexclamation (1805), ト[ (1174), buf (1110), クシ (952), 計" (863), ら値 (855), ィー (773), getopenfilename (734), activesheet (689), 。", (660), ーク (656), target (650), ブシ (628), ワー (598), 格納 (594), 2015 (583), ルド (520), 金) (482), に格 (438), ト名 (434)
- 『マクロで他のファイルから値だけを貼る』（一二三）
いつもお世話になっています。 閉じているファイルから値を貼れると楽かな、と思いネットで拾ったコードを使用しました。 便利で良いな、と思っていたのですが、貼り付ける先のセルを変更することになったのですが、下に下げることが出来ません。 今はB2から5行ほど貼っていますが、これをB10から貼り付けること出来るでしょうか。 Sub Sample3() Dim OpenFileName As String, SheetName As String, Target As String, buf As String Dim i As Long, TargetCol As Long, GetNames() ''対象ブックを選択します OpenFileName = Application.GetOpenFilename("Microsoft Excel ブック,*.xlsx") If OpenFileName = "False" Then Exit Sub ''ファイル名に[]を付ける OpenFileName = Replace(OpenFileName, Dir(OpenFileName), "[" & Dir(OpenFileName) & "]") ''対象ワークシート名を取得 SheetName = InputBox("読み込むワークシート名を入力してください。") If SheetName = "" Then Exit Sub Target = "'" & OpenFileName & SheetName & "'!" ''ワークシート名が正しいかどうか、まず読み込んでみる On Error Resume Next buf = ExecuteExcel4Macro(Target & "R1C1") If Err <> 0 Then MsgBox "ワークシート [ " & SheetName & " ] を読めませんでした。", vbExclamation Exit Sub End If On Error GoTo 0 ''[名前]フィールドを探す For i = 7 To 256 If ExecuteExcel4Macro(Target & "R2C" & i) = "集計" Then TargetCol = i Exit For End If Next i If TargetCol = 0 Then MsgBox "[ 集計 ]フィールドが見つかりません。", vbExclamation Exit Sub End If ''データの読み込み For i = 3 To 7 ''(1) buf = ExecuteExcel4Macro(Target & "R" & i & "C" & TargetCol) If buf = "" Then Exit For ''(2) ''【アクティブシートに出力する】 ActiveSheet.Cells(i - 1, 2) = buf ''【配列に格納する】 ReDim Preserve GetNames(i - 1) ''(3) GetNames(i - 1) = buf Next i ''配列に格納したデータの確認 For i = 1 To UBound(GetNames) Debug.Print GetNames(i) Next i End Sub ＜ 使用 Excel:Excel2013、使用 OS:Windows7 ＞ ---- ActiveSheet.Cells(i - 1, 2) = buf を ActiveSheet.Cells(i + 4, 2) = buf でしょうか? （Mook） 2015/02/13(金) 16:11 ---- Mookさん 早々にありがとうございます!!! 出来ました!! （一二三） 2015/02/13(金) 16:21 ---- 数値が違っていましたけれど^^;;、そこは調整できたのようですね。 2⇒10 は i + 7 でした。 失礼しました。 （Mook） 2015/02/13(金) 16:24 ---- いえいえ、本当にありがとうございます。 ActiveSheet.Cells(i - 1, 2) = bufの(i - 7, 2)とかにして、エラーになってました。 「-」が分かっていなかったです…。 （一二三） 2015/02/13(金) 16:49... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201502/20150213155145.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97008 documents and 608113 words.
訪問者：