fumufumu_2006 の回答履歴

txtファイルをOpenステートメントで開き、Line Inputで文字列を入れた変数Xがあります。 それよりも新しいtxtファイルを同じように取り込んだ変数Yがあります。 例えばXの中身は５００行でYは５０３行などに増えています。 この３行を抽出するにはどうすれば良いのでしょうか。

環境問題について考えるため ftp://ftp.ncdc.noaa.gov/pub/data/paleo/contributions_by_author/mann2003b/mann2003b.txtというサイトの 2. Northern Hemisphere decadally-resolved reconstructed temperature seriesというところのデータをコピーしてエクセルで処理したいと考えていますがT-anomというところのみをコピーする事ができなくて困っています。年数（year）はエクセルでも200から1980まで１づつ増やせばよいのでできるのですが。 どうしてもT-anomというところをコピーしようとするとyearもコピーしてしまいます。どなたか良い方法を知っている方教えて下さい。

こんにちは。 マクロで色の設定をしたいのですが、どうにもうまくいきません。 やりたいことは Sheet1に3×3の9つのセルを設定する Sheet2のA列に9行の枠を作る あらかじめ1は黒、2は灰色、3は・・・と1～15まで15色の色設定をしておく Sheet2の枠内に1～15の数字を入力したときに、Sheet1の9つのセル内の色が変わるようにしたいのです。 また、Sheet2のA1～A9がSheet1では3×3のセル設定なので 縦方向でも横方向でも進む順番は構わないのですが、 例えばSheet2：A1～A3＝Sheet1：A1～A3、Sheet2：A4～A6＝Sheet1：B1～B3、Sheet2：A7～A9＝Sheet1：C1～C3と設定することは可能ですか？ 現段階では、シート内でセルに直接数字を打ち込むと入力されたセルの色が変わるまでは出来たのですが、反映させることが出来ません。 宜しくお願い致します。

エクセルのVBAを使って罫線のみのコピーコマンドを作ろうかと考えています。選択範囲をForEachで、Selectionループをかけてとりあえず配列にパラメーターを取り込み、同じくループで、Rangeに貼り付けようと考えました。が、3次元配列の動的割り当てが上手く行きません。(ローカルウィンドで見ると、配列が定義されていませんが、エラーも出ません)何故でしょうか？どなたか教えて頂けないでしょうか？また、そんな方法よりも、こうした方がいいよ！！ってのがありましたら教えて頂けないでしょうか？宜しくお願いします。 Dim MyLine() As Variant Dim I As Integer ReDim MyLine(Selection.Count, 3, 2) I = 0 For Each myrang In Selection MyLine(I, 0, 0) = myrang.Borders(xlEdgeTop).LineStyle '上端 MyLine(I, 0, 1) = myrang.Borders(xlEdgeTop).Weight '上端 MyLine(I, 0, 2) = myrang.Borders(xlEdgeTop).ColorIndex '上端 I = I + 1 Next とりあえず上端のみを載せました。実際によ全てのパラメータを配列に取り込むつもりなので、3次元にしています。

マイクロソフトエクセル2000を利用しています。 ＶＢについては全く利用したことがないのですが、 とあるセルでＳＵＭをした値が0～9なら赤、10～19なら緑、20～29なら青のような設定をしたいと考えています。 「条件付き書式」で設定してみましたが、これでは3つまでしか設定できませんでした。 現在7通りの設定を必要としています。 これまでの質問も参照してみましたが、うまくいきませんでした。 おわかりになる方がいればよろしくお願いいたします。

いつもお世話になっております。 新年早々ですが、今回はExcelについて質問させてもらいます。 現在、とあるデータの集計を行い、印刷を行う方法を考えていますが、あまり詳しくないので困っています。 何かいい方法があればと思い投稿しました。 まずExcelファイルに「入力用シート」と「出力用シート」の二つのシートがあります。 「入力用シート」には、 C1セル、D1セル、E1セル、F1セル C2セル、E2セル、F2セル に表題や番号などを入力します。 また、下記のようにA1セルとB1セルから下へずっとデータを入力します。データ量は多いときは１０００行ぐらいです。 例） 1000　　　5 1200　　　2 900　　　 10 800　　　 2 1000　　　1 2400　　　3 あとフォームのボタンを作りこれを押すと、「出力用シート」にC1,D1,…F2までのセルをそのままコピーし、A1、B1から下へ入力されているデータのみを集計し表示を行いたいと思ってます。 集計の条件はA列ごとに集計し降順で表示です。 結果として「出力用シート」には 以下のように表示したいと思ってます。 あいうえお　かきくけこ　111111　222222 さしすせそ　　　　　　　333333 444444 2400　　　3 1200　　　2 1000　　　6 900　　　10 800　　　 2 ですが、A列とB列に入力するデータが多くなった際、印刷すると右半分が白紙の状態で、できれば右半分にもと思ってます。つまり１枚に２ページ分印刷と言うことです。 データは１枚に３０行ぐらいで左半分と右半分で６０件ぐらい表示。 （文字を大きく表示させるため） それ以上になると２枚目に１枚目と同じように１行目２行目は１枚目と同じで印刷できればと。 例） -----１枚目----- あいうえお　かきくけこ　111111　222222 さしすせそ　　　　　　　333333 444444 2400　　　　3　　　　440　　　　2 　　　　 1200　　　　2　　　　430　　　　22 1000　　　　6　　　　415　　　　9 900　　　　10　　　　409　　　　2 800　　　　 2　　　　399　　　　8 500　　　　 1　　　　395　　　　5 450　　　　 3　　　　393　　　　2 -----２枚目----- あいうえお　かきくけこ　111111　222222 さしすせそ　　　　　　　333333 444444 391　　　　1　　　　 320　　　　2 311　　　　22 説明が長くなりましたが、何卒よろしくお願いします。

タイトルの通りですが、エクセルでマクロを用いて、グラフの系列の参照元であるリンク数式を置換する方法を探しています。 エクセルでグラフを作成した時に"元のデータ"を見ると、"系列"タブの中に"名前"、"Xの値"、"Yの値"を指定するテキストボックスがありますよね？ あの中に書いてある文字列を置換したいんです。 以下の手法で作ってみたのですが、 『実行時エラー '13': 型が一致しません。』 というエラーが出てしまいます。 Sub Macro() Dim BeforeValue Dim AfterValue BeforeValue = "ここに置換元文字列を入れます" AfterValue = "ここに置換後文字列を入れます" For Each Value In ActiveChart.SeriesCollection With Value .XValues = Replace(.XValues, BeforeValue, AfterValue) .Values = Replace(.Values, BeforeValue, AfterValue) .Name = Replace(.Name, "BeforeValue", "AfterValue") End With Next Value End Sub 原因は.XValuesや.Nameがリンク数式を評価した後の値を配列で保持しているためだと思います。 そこで.XValuesや.Nameが保持しているデータが入っていたセルのアドレスを探すか、 あるいは.XValuesが評価している、元のリンク数式を保持しているプロパティ(か何か)を探せば文字列として置換できるのではないかと考えているのですがいかがでしょうか？ "元のデータ"を開いた時にもちろんリンク数式が表示されるので、どこかにリンク数式が文字列として保持されているはずだと思うのですが…。 このプロパティについて何かご存知の方、あるいは違う方法をご存知の方いらっしゃいませんでしょうか？ もしかしたら全然的外れの事をしているかもしれません。マクロを触り始めて日が浅いもので…。 その辺りの初心者的ミスも含めて間違い等、指摘して頂ける方でも結構です。 動作環境は OS:Win2000 EXCEL2003 VB6.5 です。 何かお分かりになる方、よろしくお願い致します。

　初心者です。エクセル２０００を使います。年は若くないです。 　次のことで困っています。データが多いため、ひとつひとつを手で訂正できないのです。 １．セル内の文字列に含まれる空白（スペース）を除く方法 　　例えば、　東　いろは→→東いろは 　　空白を置換して除こうとしましたがうまくいきませんでした ２．Ａ列の数字の桁数に応じて、Ｂ列に異なる数字を入れる方法。以前に教えていただいた方法＋α　が必要なのです。 　　Ａ列の数字が　４桁　なら　Ｂ列に　０１を入力 　　Ａ列の数字が　６桁　なら　Ｂ列に　６０を入力 　　Ａ列の数字が　７桁　なら　Ｂ列に　０６を入力 　　Ａ列の数字が　８桁　なら　Ｂ列にＡ列の数字の上位２桁を入力 したいのです。前回次のような数式を教えてえていただきました。 　=IF(LEN(A1)=4,"01",IF(LEN(A1)=6,"60",IF(LEN(A1)=7,"06",""))) ８桁のときの数式の組み立て（条件判断、表示の仕方）が分からず、困っています。教えて下さい。

こんにちは。 会計帳簿上の特定の仕訳から特定の勘定科目を使った仕訳を選び出して種類分けして、別の所にコピーしたいと思います。良い関数は無いでしょうか？（Excel2003　WindowsXP)　目で見て選んで手作業でコピペすれば良いのはわかっているのですが数が多いので.......... 例えば、以下のように4つのカラムがあって、各仕訳の勘定科目コードの頭の数字（これが1資産、2負債、3資本、4収益、5費用として区別ができる）で種類を分けて、1から5それぞれ別に再表示したいと思います。 勘定科目コード　金額　　　 勘定科目コード　　金額 　　　　#22000 \100 　　 　　 #12000 \200 　 　　 #52000 \100 この場合この仕訳は資産、負債、費用の勘定科目を使っています。なので、資産のシート、負債のシート、費用のシートに同じ仕訳をコピペしたいです。都合の良い関数があったらご教示いただきたく、よろしくお願いします。

いつもお世話になっております。 エクセルVBA初心者なので、分かりやすく教えていただきたいのですが、今下記のようなコードを書いています。 Public Function FindData(key As String, ByRef st As Long, ByRef ed As Long) As Long On Error GoTo FindData_Error Dim z As Long Sheets("T_保存").Select If Range("A2").Value = "" Then z = 1 Else z = Range("A1").End(xlDown).Row End If st = Application.WorksheetFunction.Match(key, Range("A1:A" & z), 0) ed = Application.WorksheetFunction.Match(key, Range("A1:A" & z), 1) FindData_exit: FindData = 0 Exit Function FindData_Error: FindData = -1 End Function keyは年度で、入力シートからT_保存シートに値でコピーするVBAを組んでいます。 シート上でのMATCH関数では認識しますが、st = ～のところで、「MATCHプロパティを取得できません」と出てしまい、検索結果は「該当なし」なってしまいます。いろいろと調べても見たんですが、どうしても原因が分かりません。 なるべく詳しく教えていただければ・・・と思います。 （初心者のため、ここを伝えなければ、回答できないという項目があれば追加で記入させていただきます。key,zには正常な値が入っています） よろしくお願いいたします。

よろしくお願いします。 開発環境はVisualBasic2005、SQLServer2005Expressです。 .rdlcにTableを追加し、Table内のセル(textbox)に金額欄があるのですが、ある条件の場合は、金額を”\0”で表示するようにしています。 このtextboxを集計させると、Fieldの値を集計してしまい、表示上は”\0”でも集計はDBの金額を集計した値が集計欄に表示されてしまいます。 textboxに表示されている値の集計を取得する方法はないでしょうか？ 情報をお持ちの方、よろしくお願いいたします。

教えてください。 エクセルで下記のような簡単なシートがあります。 ********************************* 料金マクロ （セル：C6）年（セル：F6）月 [印刷ボタン] ********************************* （VBAにて「印刷ボタン」を押すと他のファイルを読みに行って印刷できるようになっています。） 入力可能なのは「C6」と「F6」のセルだけで それぞれ年・月（例：「07」年「10」月）を入力できるようにしたく、 そのセルだけを入力許可して保護をかけました。 その他のセルはどこを触っても、禁止メッセージを表示したいです。 しかし、エクセルにメッセージ「変更しようとしているセルまたはグラフは・・・・・・」 という、エクセルで「保護」した時の書込禁止メッセージではなく、 年配の方が使うファイルなので、わかりやすいメッセージにしたくて 色々調べてみました。 その結果、保護ではなく、 シートモジュールに入力することで対応できることを知り、 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Application.Intersect(Target, Range("A1:IV100")) Is Nothing Then Else MsgBox "年・月以外は書込みできません" Range("C6").Select End If End Sub としてみました。 （A1:IV100の範囲で書込み禁止エラーがでる。その後、カーソルが「C6」のセルに戻る。） この状態だと、戻る「C6」には、入力ができますが 「F6」への入力ができません。 「C6」・「F6」を両方入力を可能にするにはどうしたらいいですか？ どなたかお詳しい方、教えてください。 この方法にこだわっているわけではないので、 もし、別のいい案がございましたら、 方法が変わってもかまいません。 お手数お掛け致しますが、よろしくお願いいたします。

はじめて質問させていただきます。 よろしくお願いします。 エクセル2000を使用して、アフィリエイトのプログラム名や、 取得リンクを管理していたのですが、、、 セル内に、広告リンクURLを記入し、エクセルを保存。 その後、セルをコピーすると、 文字列が変わってしまい、困っております。 エクセルの仕様なのか、判らず、 ご経験のあるかたいらっしゃいましたら、 ご教授いただけますと幸いです。 ============================================= URL（エクセル上でも、セルを選択するとこのまま表示されます） ============================================= <A HREF="http://px.a8.net/svt/ejp?a8mat=16ELG6+3VWVXU+A5K+TV3PE" target="_blank">広告サイト名</A> <img border="0" width="1" height="1" src="http://www19.a8.net/0.gif?a8mat=16ELG6+3VWVXU+A5K+TV3PE" alt=""> ============================================= セルをコピーして、メモ帳などにペーストすると・・・ ============================================= "<A HREF=""http://px.a8.net/svt/ejp?a8mat=16ELG6+3VWVXU+A5K+TV3PE"" target=""_blank"">広告サイト名</A> <img border=""0"" width=""1"" height=""1"" src=""http://www19.a8.net/0.gif?a8mat=16ELG6+3VWVXU+A5K+TV3PE"" alt="""">" のように、" の文字がいろんなところに入ってしまっています… --------------------- 初心者で申し訳ありませんが、 回避する方法などありましたら、お教えいただけますと幸いです。 よろしくお願いいたします。

よろしくお願いします。 開発環境は、VisualBasic2005、SQLServer2005Exopressです。 ReportViewerで金額列が2列あり、それぞれの合計欄が各テキストボックスにあります。 この合計欄2つを別のテキストボックスに計算させることは出来るのでしょうか？ 情報が見つからず困っています。 情報をお持ちの方、よろしくお願いいたします。

A1:E10の表があり、sub 印刷() のマクロで印刷します。E列(E1～E10)の間には整数で1,2,3と三か所に数字が有ります。印刷時に此の数字のあるセルを認識しこの行に色(うす水色)を付けて印刷し、マクロ終了時には最初の色のない表にしたいのですがどのように記述したらよいのでしょうか。よろしくおねがいします。

A1:E10の表があり、sub 印刷() のマクロで印刷します。E列(E1～E10)の間には整数で1,2,3と三か所に数字が有ります。印刷時に此の数字のあるセルを認識しこの行に色(うす水色)を付けて印刷し、マクロ終了時には最初の色のない表にしたいのですがどのように記述したらよいのでしょうか。よろしくおねがいします。

よろしくお願いします。 開発環境は、VisualBasic2005、SQLServer2005Expressです。 データセットからReportViewerで帳票を作成していますが、帳票呼び出し元のフォームにて日付の範囲指定をしています。 その日付（From～To）の値を帳票に”抽出期間”としてヘッダーに表示させたいのですが、データセット以外のデータを表示させることは可能でしょうか？ また、可能であればどのような方法があるのでしょうか？ 情報をお持ちの方、よろしくお願いいたします。

以下のようなデータがあり抽出したいのです（エクセルもしくはアクセス）。実際は何千件もあります。 2007年生まれで、その子どもの続柄が「3」ならば世帯主（1）または妻（2）以外の1987生まれ以前の人がいる世帯。 またはその子どもの続柄が「子の子」ならばその世帯。 この例の場合、世帯番号で２、５、８が該当世帯です。 よろしくお願いします。 1:世帯主 2:妻 3:子 4:子の子 5:その他 世帯番号　　生年　　続柄 1 1967 1 1 1972 2 1 2001 3 1 2007 3 2 1948 1 2 1950 2 2 1972 3 2 1974 3 2 2005 4 2 2007 4 3 1968 1 3 1973 2 3 2007 3 4 1974 1 4 2007 3 5 1968 1 5 1973 2 5 2007 3 5 1940 5 6 1975 1 6 2003 3 6 2007 3 7 1970 1 7 1974 2 7 2007 3 7 1995 5 8 1949 1 8 1969 3 8 1974 3 8 2007 4 9 1974 1 9 1975 2 9 2006 3 10 1949 1 10 1950 2 10 1970 3 10 1975 3 10 2005 4

以下のようなデータがあり抽出したいのです（エクセルもしくはアクセス）。実際は何千件もあります。 2007年生まれで、その子どもの続柄が「3」ならば世帯主（1）または妻（2）以外の1987生まれ以前の人がいる世帯。 またはその子どもの続柄が「子の子」ならばその世帯。 この例の場合、世帯番号で２、５、８が該当世帯です。 よろしくお願いします。 1:世帯主 2:妻 3:子 4:子の子 5:その他 世帯番号　　生年　　続柄 1 1967 1 1 1972 2 1 2001 3 1 2007 3 2 1948 1 2 1950 2 2 1972 3 2 1974 3 2 2005 4 2 2007 4 3 1968 1 3 1973 2 3 2007 3 4 1974 1 4 2007 3 5 1968 1 5 1973 2 5 2007 3 5 1940 5 6 1975 1 6 2003 3 6 2007 3 7 1970 1 7 1974 2 7 2007 3 7 1995 5 8 1949 1 8 1969 3 8 1974 3 8 2007 4 9 1974 1 9 1975 2 9 2006 3 10 1949 1 10 1950 2 10 1970 3 10 1975 3 10 2005 4

宜しくお願いします。 ネットショップで発送はゆうパックを使用しております。 発送個数が増えて来た事もありプリンターで宛名作業をしたいのですが、 ゆうパック／ゆうパック代引きの送り状をプリント出来るドットプリタン ター？って言う物でお勧めはありますでしょうか。 ちなみにWIN、MACとも所有しておりますが高価なマシンではありません ので接続はUSB接続出来るものが理想です。 あと、今後クロネコさんや佐川さんも使用するかもしれませんので ゆうパック以外の送り状もプリント出来るものですと尚善しです。 どうぞ宜しくお願い致します。