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

のデータに、以下のHPのデータのページT15以降のα2、α4、α6を追加して
http://wwwndc.jaea.go.jp/nucldata/mass/KTUY04_m2 …

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

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





なお、Fe[70] = 69.96146等のデータはWikipediaより入手しました。

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

  • うーん・・・

    やはり無理でしょうか?
    まず、下記のデータを、1つのセルではなく、バラバラにして、A,B,C,,,のセルにコピーできないですね。。


    http://wwwndc.jaea.go.jp/nucldata/mass/KTUY04_m2 …

      補足日時:2017/04/18 13:34
  • どう思う?

    テキストデータを見つけました。

    http://wwwndc.jaea.go.jp/nucldata/mass/KTUY05_m2 …

    但し、このデータも1つのセルではなく、バラバラにして、A,B,C,,,のセルにコピーできないですね。。

    更に、元素記号が載っていないです。
    Fe(70)でしたら、Feの原子番号(zz=26)中性子数(NN=44) zz+NN=70 の箇所を見る必要があります。
    ややこしくなります。

      補足日時:2017/04/18 22:12
  • どう思う?

    このテキストデータが使えそうなら、

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

    の現状データ

    Fe[70] = 69.96146;
    Fe[71] = 70.96672;
    Fe[72] = 71.96962;
    Dy[161] = 160.9269334;
    Dy[162] = 161.9267984;



    Fe[26,70] = 69.96146;
    Fe[26,71] = 70.96672;
    Fe[26,72] = 71.96962;
    Dy[66,161] = 160.9269334;
    Dy[66,162] = 161.9267984;


    に変更します。

      補足日時:2017/04/18 22:12
  • すいません。以下の理由で一旦終了して、再質問します。
    理由
    ①テキストデータのHPが見つかりました。
    ②下記データ
    Fe[70] = 69.96146;
    Fe[71] = 70.96672;
    Fe[72] = 71.96962;

    Fe[26,70] = 69.96146;
    Fe[26,71] = 70.96672;
    Fe[26,72] = 71.96962;
    に変更します。
    更に、元素記号を原子番号順に並び替え、元素記号を2か所修正します。

      補足日時:2017/04/18 23:25

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

A 回答 (1件)

こんにちは。



ご質問内容は、表さえしっかりしていれば、すぐに可能なのですが、表づくりから始まるような気がします。

今、KTUY04_m246S12np.pdf から、Text File を抜き出しみましたが、
約33,000行で、おまけに、unicodeでしたから、マクロで扱うには、SJISに変換しなくてはいけないようです。どうやら、マイナス(-)と他の-(ダッシュ)と別々に使っているようです。

>やはり無理でしょうか?
そんなことはありませんが、内容も内容ですから、優秀な方たちが、周りにいるのではないかと思いましたが……。

>まず、下記のデータを、1つのセルではなく、バラバラにして、A,B,C,,,のセル>にコピーできないですね。。

単に手間が掛かるだけです。良いOCRを持っていればよいのですが、私のところでは、OCRは、もう使えませんので、pdf からテキストを抜き出す特別なツールを使っています。数日前から、メインテナンスしていてちょうど使えるようになりました。OCRも、少なくとも、Word変換なんていうものは、ダメだと思います。

今、 He 6.25.021 0.000.000−2.39 - ---2.42 4
これが一塊になって出てきてしまいます。
この切り分けをしなくてはならないようです。
perl Like のBasp21 で、切り分けをしてみました。

ただ、イレギュラーの部分があるので、33,000行までは、なかなか予断の出来ない状態です。

私にとっては、なかなか、先は遠いようです。
    • good
    • 0
この回答へのお礼

お返事ありがとうございます。

>ご質問内容は、表さえしっかりしていれば、すぐに可能なのですが、表づくりから始まるような気がします。

やはりそうですね。表さえあれば、簡単に出来そうな気がします。表さえあれば、手作業で必要な行や列だけを残して、置換等を使いながら、最後にコピぺで作れそうな気もします。

>単に手間が掛かるだけです。良いOCRを持っていればよいのですが、私のところでは、OCRは、もう使えませんので、pdf からテキストを抜き出す特別なツールを使っています。

私は「読取革命」を使っています。今Excelに変換させようとしてますが、読み取っていない箇所が発生しています。

ん、、、行き詰りました、、、

お礼日時:2017/04/18 21:51

お探しの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」の場合の表示桁数は一...続きを読む

Q日付 =TEXT(C2,"m月d日(aaa)")が=TEXT([@月日],"m月d日(aaa)")

日付を文字列に変換するため
=TEXT(C2,"m月d日(aaa)
と入力していたものが
今見ると 
=TEXT([@月日],"m月d日(aaa)")
となっていました。
数式バーをクリックすると[@月日]は、
画像のように青くなっています。
なぜこうなるのですか

Aベストアンサー

テーブルの構造化参照になっているだけですね。

Excel2007以降 テーブル書式は基本中の基本の使い方なので必ず
勉強して使えるようになっておくべきだと思います。

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&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報