http://www.geocities.jp/etctransformation/newpag …

のデータに、次のHPのテキストデータのalpha2 alpha4 alpha6を追加して
http://wwwndc.jaea.go.jp/nucldata/mass/KTUY05_m2 …


例えば、
Fe[26,70] = 69.96146;(変更前)→Fe[26,70] = {69.96146,.083, ?.018, ?.006 };(変更後)
Fe[26,71] = 70.96672;(変更前)→Fe[26,71] ={70.96672, .085, ?.025, ?.003 };(変更後)
のように変更させたいです。

ExcelのVBAを使って、データを追加させるコードを教えて下さい。



詳細説明

例えばFe[26,70] の場合ですと元素記号[原子番号(陽子数),質量数]なので Fe(元素)[26(原子番号)、70(質量数)]を示します。
従って
ZZ NN Mcal Esh alpha2 alpha4 alpha6  のZZは原子番号(陽子数)NN(中性子数)を示しまので

26(原子番号) 44(中性子数)が、70=26+44(質量数=原子番号(陽子数)+中性子数)なので、Fe[26,70] になります。
よって
26 44 -37.81 -1.22 0.083 -0.018 -0.006
のデータのalpha2 alpha4 alpha6である 0.083 -0.018 -0.006を追加し

Fe(元素)[26(原子番号),70(質量数)]={69.96146(既に入力済データ),0.083(alpha2), -0.018(alpha4), -0.006(alpha6)};

とさせたいです。


宜しくお願い致します。

質問者からの補足コメント

  • ご回答有難う御座います。
    >少し時間が取れたので、表計算で行ってみました。(提案した手前…(笑)
    すいません。お手数をお掛けします。

    >・H~N列が、コピペした第二表のデータ
    第二表のデータがコピペ出来ないです。
    画像のようにA列にすべてのデータが入ってしまいます。
    Excel2013を使っているのですが、どのようにしたら、A~G列にコピペできるでしょうか?

    「VBAを使ってデータを追加させるコードを」の補足画像1
    No.5の回答に寄せられた補足コメントです。 補足日時:2017/04/19 13:37
  • No.5様

    画像の通り、やっているのですが、数字が表示されません。
    何が悪いのでしょうか?ご教示頂きましたら幸いです。

    「VBAを使ってデータを追加させるコードを」の補足画像2
      補足日時:2017/04/19 14:49
  • No.10様

    ご回答有難う御座います。
    Sheet1に A列からG列までご回答の画像の通り、データを入力してマクロを実行させたのですが、sheet2に何も表示しません。

    画像の通り、実行しました。どこか注意する箇所等はあるでしょうか?

    「VBAを使ってデータを追加させるコードを」の補足画像3
    No.10の回答に寄せられた補足コメントです。 補足日時:2017/04/19 16:18
  • つらい・・・

    皆様、ご回答有難う御座います。

    tatsu99様に、最初にご回答頂いたのですが、誠に身勝手で恐縮で御座いますが、マクロまでご教示頂きましたWindFaller様を ベストアンサーにさせて頂きます。

    tatsu99様、fujillin 様、申し訳御座いません。m(__)m

      補足日時:2017/04/20 12:45

このQ&Aに関連する最新のQ&A

A 回答 (12件中11~12件)

No1です。


2)もし、1)のperlかrubyの方法がNGの場合、結果だけの提示でも良いです。(マクロの提示なし)
は、
2)もし、1)のperlかrubyの方法がNGの場合、結果だけの提示でも良いですか。(マクロの提示なし)
の誤りです。訂正いたします。
    • good
    • 0
この回答へのお礼

お返事有難う御座います。

結果だけのご提示でも結構で御座います。
宜しくお願い致します。

お礼日時:2017/04/19 12:23

必ずしも、解決方法を提示できることが保証できる訳ではありませんが、補足要求です。


1)VBAで行うよりは、perlかrubyのほうが簡単なのですが、それでも良いですか。
(あなたの環境にperlかrubyはインストールされていませんでしょうか)
2)もし、1)のperlかrubyの方法がNGの場合、結果だけの提示でも良いです。(マクロの提示なし)
3)http://www.geocities.jp/etctransformation/newpag
のデータには、
NI[53,28,70 ] = 69.93650;
NI[53,28,71] = 70.94074;
NI[53,28,72] = 71.94209;
NI[53,28,73 ] = 72.94647;
NI[53,28,74] = 73.94807;
NI[53,28,75] = 74.95287;
NI[53,28,76 ] = 75.95533;
NI[53,28,77] = 76.96055;
NI[53,28,78] = 77.96318;
のデータがあります。
これは、どのように処理するのでしょうか。具体的な方法をご提示ください。
4)あなたが提示した
>例えば、
>Fe[26,70] = 69.96146;(変更前)→Fe[26,70] = {69.96146,.083, ?.018, ?.006 };(変更後)
>Fe[26,71] = 70.96672;(変更前)→Fe[26,71] ={70.96672, .085, ?.025, ?.003 };(変更後)
ですが、
?.018 は -0.018
?.006 は -0.006
の誤りと理解して良いですか。
    • good
    • 0
この回答へのお礼

お返事有難う御座います。

>1)VBAで行うよりは、perlかrubyのほうが簡単なのですが、それでも良いですか。
>(あなたの環境にperlかrubyはインストールされていませんでしょうか)
インストールしておりません。

>2)もし、1)のperlかrubyの方法がNGの場合、結果だけの提示でも良いです。(マクロの提示なし)
結果だけの結果をご提示頂きましたら助かります。


>3)http://www.geocities.jp/etctransformation/newpag
>のデータには、
>NI[53,28,70 ] = 69.93650;
>のデータがあります。

すいません。間違っていました。
Dy[66,39,161] = 160.9269334;→Dy[66,161] = 160.9269334;
等に修正しました。
(手作業はやはりまずいですね。確認したつもりなのですが、間違っていまいます。)

http://www.geocities.jp/etctransformation/newpag …

表示には時間がかかるかもしれません。間の39を消しました。

>?.018 は -0.018
>?.006 は -0.006
>の誤りと理解して良いですか。

すいません。文字化けしたようです。

宜しくお願い致します。

お礼日時:2017/04/19 10:53

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aと関連する良く見られている質問

Q[色]+#,##0;[色]-#,##0;[色]0;@ と[<10]#.0;0 同時設定可能ですか?

よろしくお願いします
いつもgooの皆さんには大変お世話になっております
お陰様でエクセルが大分進歩しました
win8.1でエクセルは2013です

タイトルの通り、2つの書式は同時に設定できますか?
可能であればその書き方を教えていただけないでしょうか?
同時に設定したい書式は下記のとおりです

[色]+#,##0;[色]-#,##0;[色]0;@  と [<10]#.0;0 です

Aベストアンサー

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一桁でフォント色は「自動」がお望みなのではないでしょうか?
おそらく手動でのセルの書式設定のユーザー定義ではどれか一つを犠牲にする必要があるのではないかと思います。
(できる方法があればごめんなさいね。)

ただ、お望みの方法ではないかもしれませんが、
上記条件付き書式のセル変更があればマクロで書式を変えてやる方法があります。

マクロでやるとなるとわざわざセルの書式設定を手動でやる意味がないので
敢えて今回はこの程度で・・・m(_ _)m

こんばんは!

おそらくセルの書式設定のユーザ定義は最大3個までしか設定できなかったともいます。

ユーザー定義の欄に
[赤][<0]-#,##0;[青][<10]0.0;[青]#,##0;@
としてみてください。
① マイナスの場合のフォント色は「赤で3桁のカンマ区切り」
② プラスの場合で10未満の場合は「青で小数点以下一けた表示」
③ プラスで10以上の場合は「青で3桁のカンマ区切り」
その他(文字列)の場合は「自動」(黒)

以上のような表示になると思いますが、
「0」の場合の設定ができません。
「0」の場合の表示桁数は一...続きを読む

QEXCELの表、組[A列]:番号[B列] を 組[A列]:番号[行]に変換する方法

EXCELに
A列に組、B列に番号がそれぞれ反映されている表があります。
これを
A列に組、同行に番号が横並びに配置された状態に変更したいと考えております(添付画像)。

D列にはA列の組名を「重複なし」で貼り付けます。
このとき、E列~K列にどのような数式を入力すればよろしいでしょうか?
E1に入力する数式を教えていただけるとありがたいです。
何卒よろしくお願いいたします。

Aベストアンサー

こんばんは!

画像の配置だとE1セルに
=IF($D1="","",IFERROR(INDEX($B$1:$B$1000,SMALL(IF($A$1:$A$1000=$D1,ROW($A$1:$A$1000)),COLUMN(A1))),""))

配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は
上記数式をドラッグ&コピー → E1セルを選択 → 数式バー内に貼り付け →そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後に{ }マークが入り配列数式になります。

最後にE1セルのフィルハンドルで列・行方向にずぃ~~~!っとフィル&コピーします。

こんな感じではどうでしょうか?m(_ _)m

Q[原紙]→[スキャナー]→[フォトショップ]→[エクセル]での原寸印刷のやり方

タイトルに書きましたとおり、[原紙]→[スキャナー]→[フォトショップ]→[エクセル]で、最初に取り込んだ[原紙]と全く同じサイズで印刷に出したいのですが、原寸よりも小さくなってしまうので困っています…。

紙に印刷された画像をスキャナで取り込み、フォトショップでgif画像にしました。
と、ここまでは原寸だったのですが、エクセルに貼り付けて印刷しましたら、実際のものよりも一回り小さくなって印刷されてしまいました。
縦横比は同じです。
2.33cmが、1.75cmになりました。

エクセルに貼り付けるときに、「挿入」→「図」→「ファイル」から貼り付けました。
「図の書式設定」では100%になっています。

普段は[原紙]→[スキャナー]→[フォトショップ]→[イラストレーター]で印刷しているのですが、その時は原寸で出ます。(今回もその方法なら原寸なのですが…)

原寸で印刷するにはどうしたらいいのでしょうか?
よろしくお願い致します。

Aベストアンサー

画像を貼り付けるエクセルのシートは事前にページ設定が出来てますでしょうか?
メニューバーで表示>改ページプレビューの設定にして見やすいサイズに表示倍率を上のツールバーで設定してください。青色の改ページラインが貼り付けた画像とほぼ同じになっていますか?画像より大きければドラッグして改ページラインを画像に合わせてください。

Q[セルの書式設定][横位置]の[インデント]の単位

添付図は
1.セル A1 を選択
2.[書式]→[セル]→[配置]を実行
3.[横位置]として“左詰め(インデント)”を選択
4.[インデント]として“2”を選択
5.[文字の制御]として“折り返して全体を表示する”を選択
した後で、次の文を入力した状態を示しています。
Mao Asada successfully landed a triple axle and earned her new personal best score of 142.71, but placed sixth overall due to a poor performance in the short program.
フォントの種類は Courier New です。
なお、標準書式セル A2 にも上と同じ文を入力しています。

ちなみに、私は Excel 2002 を使用しています。

さて、セル A2 と比較して分かるように、セル A1 の左端は約3文字分のスペース幅になっています。このスペース幅とインデント数値との関係を調べてみると次のようになりました。
インデント値 左端スペース幅
    0    0文字分(スペースなし)
    1    約2文字分
    2    約3文字分
    3    約5文字分
    4    約7文字分

[インデント]で設定する数値の単位は何なのでしょうか?
そのことを説明した記述を紹介していただけたら助かります。

添付図は
1.セル A1 を選択
2.[書式]→[セル]→[配置]を実行
3.[横位置]として“左詰め(インデント)”を選択
4.[インデント]として“2”を選択
5.[文字の制御]として“折り返して全体を表示する”を選択
した後で、次の文を入力した状態を示しています。
Mao Asada successfully landed a triple axle and earned her new personal best score of 142.71, but placed sixth overall due to a poor performance in the short program.
フォントの種類は Courier New です。
なお、標準書式セル A2 にも上と同じ文...続きを読む

Aベストアンサー

> インデント]で設定する数値の単位は何なのでしょうか?
> そのことを説明した記述を紹介していただけたら助かります。

下記URLのページには、次のように説明されています。

『インデントの幅は、Excelの初期設定のフォントサイズである「MSゴシック 11ポイント」の文字数を基準とした単位で指定されるため、フォントサイズが異なるセル同士でも同じ間隔でインデントを設定することができます。』

「セルに入力した文字列を1文字分だけ右にずらしたい(Excel)」
http://www.jpita.or.jp/hpv3/ziten/mokutekibetu/ex_59.html


Defaultの「MSゴシック 11ポイント」は、
「ツール」メニュー→「オプション」→「全般」タブで、設定されている「標準のフォント」および「サイズ」によります。

「Excel の [セルの書式設定] ダイアログ ボックスの設定を制御および理解する方法」
http://support.microsoft.com/kb/264372/ja

Q関数の[DBNum3]#,##0"円",-#,##0"円"の意味教えてください!

セルの書式の表示のユーザー定義で[DBNum3]#,##0"円",-#,##0"円"というのがあるんですが
意味がわかりません。
#,##0"円",-#,##0"円"という関数もあるのですが、
どなたか違いを教えてください。

宜しくお願いします。

Aベストアンサー

Googleでキーワード:DBNum3 で日本語選択検索で参考になるサイトが出ます。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報