以下のようなCSVファイルを、罫線・背景色のあるEXCELのテーブル(一覧表)に変換するにはどのような方法があるか教えていただけませんでしょうか?
(部門順→役職順でソートして所属部門別の社員名簿を作りたいと考えております。)

----------------------------------------------------
部門コード,部門名,社員番号,社員名,役職コード,役職名
10000,営業部,10001,鈴木 一郎,50,部長
10001,製造部,10002,田中 実,50,部長
10002,販売促進部,10003,佐藤 和夫,40,課長
10001,製造部,10004,高橋 幸雄,40,課長
10002,販売促進部,10005,渡辺 進,30,係長
10005,経理部,10006,佐々木 達也,50,部長
10006,総務部,10007,山口 浩二,50,部長
----------------------------------------------------

VBAを使ってボタンひとつで自動的に生成!という風にはできませんでしょうか。

ほかの方法でも結構です。ご教授くださいませ<(*_ _)>

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

A 回答 (4件)

(1)ExcelでCSVファイルを読み込むと、自動的にExcelのテーブルになります。



(2)それに、罫線と背景色をつけます。

(3)そして、部門順→役職順でソートします。


これらの一連の動作を、マクロに記録すれば良いだけです。

(2)で、表の大きさがファイルによって異なるのであれば、表全体を選択するときに、表のどこか(表の左上のセルとか)を選択した後、Ctrl+Aを押せば、表全体を選択します。ちなみに、続けてCtrl+Aを押すと、シート全体を選択します。
    • good
    • 0
この回答へのお礼

「Ctrl+A」、参考になります!

お礼日時:2011/04/12 01:06

CSVファイルだけは、操作として、ファイルー開くー(ファイル指定ダイアロウグで)ファイル名指定で読み込めますよ。


このファイル形式は特別の存在なんです。
ーー
外に、データー外部データの読み込み、の操作もあります。
ーー
データが少しなら、メモ帳などに読み込んで全体をコピーし、シートのA列に貼り付け
データー区切り位置ー区切り記号はカンマで読み込むことも出来る
ーーー
>VBAを使ってボタンひとつで自動的に生成
前述の操作をして、マクロの記録を採って、ファイル名や範囲をその都度の実情に応じて変えるコードを勉強すれば出来ます。
1回限りでのコードがどうなるか勉強してから、疑問点を煮詰めて質問したら。
ーーー
ソートなどはエクセルのシートデータになってから考えれば良いし、これもマクロの記録を修正する形で出来る。
ーー
エクセルでこの程度の質問が出るようでは、1歩1歩進む必要がある。あれもこれもになら無いように。
    • good
    • 0
この回答へのお礼

漠然としたまま質問してしまいました。
大変失礼いたしました。

出直してきます

お礼日時:2011/04/12 01:08

罫線・背景色のあるブックとは別のブックに読み込んでから、値のコピーをする。



ボタンひとつでやりたいなら、その操作を「マクロの記録」でマクロにしておけばいいでしょう。
    • good
    • 0
この回答へのお礼

ありがとうございます。

お礼日時:2011/04/12 01:06

エクセルの「開く」メニューで簡単にできるはずですが・・・。



フリーソフトもあります。
http://www.vector.co.jp/soft/winnt/util/se447080 …
    • good
    • 1
この回答へのお礼

ありがとうございます。

お礼日時:2011/04/12 01:05

このQ&Aに関連する人気のQ&A

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

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

このQ&Aを見た人が検索しているワード

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

Qlenovoタブレット android5.1 と 5.1.1

ご存知の方、教えてください。

格安SIMを使ったタブレットが調子が悪いので、端末を買い替えようと思っています。

現在OCNモバイルONEですので、モバイルONEのHPから動作確認済み端末をみて、
lenovo yoga タブレット 3 10を購入しようと考えています。

ところがOCNの動作確認済み端末の表には、OSがandroid5.1.1となっていました。
一方lenovoや量販店のHPをみても、android5.1.1の記載はありません。
すべてandroid5.1です。

OCNのコールセンタに問い合わせたところ、
「動作確認した端末はandroid5.1.1であった。それ以上のことはわからない。」

と言われました。

・なぜこのようなことになっているのか?

・android5.1 でも 5.1.1 でも格安SIMは問題なく使えるのか。

教えていただければありがたく思います。
よろしくお願いいたします。

Aベストアンサー

>android5.1 でも 5.1.1 でも格安SIMは問題なく使えるのか

使えます。(Windows8→Windows8.1→Windows8.1Update版のようなもの)
但しメーカーのサイトに「注:すべてのカードの動作を保証するものではありません」とあります。

「SIMスロット:なし」→SIMカードをどこに入れるの?
http://www.lenovo.com/jp/catalog/tablet/2015/yogat3_10_rt_1027.html

>なぜこのようなことになっているのか?

androidのOSメーカーがバージョンアップで5.1.1を出しても、モバイル機種メーカーやユーザーが5.1から5.1.1にバージョンアップするとは限りません。
「OSは出荷時期によってバージョンが変更されている場合があります」とあります。

YOGA Tab 3 10 ZA0J0005JP SIMフリー のスペック・仕様・特長
SIM情報:SIMフリー (micro-SIM) ←対応している
http://kakaku.com/item/K0000824208/spec/

>android5.1 でも 5.1.1 でも格安SIMは問題なく使えるのか

使えます。(Windows8→Windows8.1→Windows8.1Update版のようなもの)
但しメーカーのサイトに「注:すべてのカードの動作を保証するものではありません」とあります。

「SIMスロット:なし」→SIMカードをどこに入れるの?
http://www.lenovo.com/jp/catalog/tablet/2015/yogat3_10_rt_1027.html

>なぜこのようなことになっているのか?

androidのOSメーカーがバージョンアップで5.1.1を出しても、モバイル機種メーカーやユーザーが5.1から5.1...続きを読む

Q【Excel】セルの背景色、文字色のRGB値を求める方法

Excel(関数orマクロ)でセルを参照して、
そのセルの背景色、文字色それぞれのRGB値(255,255,255 等)を自動取得することは可能でしょうか?

例えば、
A1セルの背景色RGB値をB1セルに。
A1セルの文字色RGB値をC1セルに、というイメージです。

※バージョンはExcel2007です

宜しくお願い致します。
背景色、文字色のRGB値を求める方法

Aベストアンサー

次のコードを参考に。
Sub test()
c = Right("000000" & Hex(Range("A1").Interior.Color), 6)
r = Val("&H" & Right(c, 2))
g = Val("&H" & Mid(c, 3, 2))
b = Val("&H" & Left(c, 2))
MsgBox "RGB(" & r & "," & g & "," & b & ")"
End Sub

Q日産LEAFでandroidスマホをオーディオとして使えますか?

日産LEAFのナビ(EV専用カーウイングスナビゲーションシステム)で現在iPhone4をオーディオ代わりに使っています。

iPhoneを別途使う必要が生じたため、iPodを物色していたのですが、希望の32GB以上となるとtouchクラスになり、そう安くありません。

ならいっそのこと、androidスマホの中古を買って、前から試してみたかったLeaf Spy(android2.0以降)も導入してしまおうかと思いつきました。

しかし、日産のホームページを見ても、iPodの対応表はあるのですが、andoridスマホが使えるかどうかは載っていません。

どなたか実際に試していらっしゃる方、どの機種なら使えたといった情報よろしくお願いします。

Aベストアンサー

最大限の機能を使うのであればiPhoneやiPodの方が公式サポートもされていますし、おススメなのですが…
Bluetooth対応機種でしたら、ハンズフリーはAndroidでも可能かと思います。
ですが、ダイレクトで繋ぐわけではないのでオーディオ再生はできない可能性の方が高いですね;

お近くの日産へ行き、確かめる方がいいかもしれません。
また、修理なども受け付ける店舗ですと、在庫があればAndroid用のケーブル等も用意している場合がありますので、大き目の店舗に行かれるのがいいかと思います。

ちなみに、アプリも色々な機能があるようです。
http://www.nissan.co.jp/EVENT/APPLI/

オーディオのみの用途でしたら、USBメモリーでも対応していますのでこれが一番安上がりかと思います。

Qvb.netでCSVファイルを変換して新しいCSVファイルを作りたいの

vb.netでCSVファイルを変換して新しいCSVファイルを作りたいのですが、どのようにすれば良いかヒントを教えていただけないでしょうか?

A組,10代,10
A組,20代,20
A組,30代,30
B組,10代,40
B組,20代,50
B組,30代,60
C組,10代,70
C組,30代,80

この様なCSVファイルを変換して

,A組,B組,C組
10代,10,40,70
20代,20,50,
30代,30,60,80

という表のようなCSVファイルを作りたいのです。
データベースなどに入れずに、ファイルtoファイルでの変換がしたいです。
最初のファイルの1列目と2列目の項目をそれぞれ配列に入れて重複をなくす位までは思いつくのですが、そこから先がどの様にすれば良いかよく分かりません。
ヒントだけでも良いのでよろしくお願いいたします。

Aベストアンサー

SortedDictionaryを使うのは如何でしょう?
Dim Q As New SortedDictionary(Of String, _
    SortedDictionary(Of String, Integer))
Qのキーは10代、20代、等の項目になります。
QのデータはSortedDictionaryで、キーはA組、B組等、
データは数値(3列目)です。
ランダムに書き込んでも、ソートされて記録されますので、
ファイルの入力処理後にFor Each文でデータを出力すれば
目的のように出力できます。

Dim A As New StreamReader("C:~.csv", _
    Encoding.GetEncoding("shift_jis"))
Dim B As New SortedDictionary(Of String, Integer)
Dim C As New SortedDictionary(Of String, _
    SortedDictionary(Of String, Integer))
Dim D As String
Dim E
Do Until A.EndOfStream
    D = A.ReadLine
    E = D.Split(",")
    If Not B.Keys.Contains(E(0)) Then B.Add(E(0), 0)
    Dim F As SortedDictionary(Of String, Integer)
    If C.Keys.Contains(E(1)) Then
        F = C(E(1))
        If F.Keys.Contains(E(0)) Then
            F(E(0)) = F(E(0)) + E(2)
        Else
            F.Add(E(0), E(2))
        End If
    Else
        F = New SortedDictionary(Of String, Integer)
        F.Add(E(0), E(2))
        C.Add(E(1), F)
    End If
Loop
A.Close()
Dim G = New StreamWriter("C:\~.csv", False, _
    Encoding.GetEncoding("shift_jis"))
For Each H As String In B.Keys
    G.Write("," & H)
Next
G.WriteLine("")
For Each H As String In C.Keys
    G.Write(H)
    Dim F As SortedDictionary(Of String, Integer) = C(H)
    For Each D In B.Keys
        If F.Keys.Contains(D) Then
            G.Write("," & F(D).ToString())
        Else
            G.Write(",0") '省略時はコメントアウト
        End If
    Next
    G.WriteLine("")
Next
G.Close()

SortedDictionaryを使うのは如何でしょう?
Dim Q As New SortedDictionary(Of String, _
    SortedDictionary(Of String, Integer))
Qのキーは10代、20代、等の項目になります。
QのデータはSortedDictionaryで、キーはA組、B組等、
データは数値(3列目)です。
ランダムに書き込んでも、ソートされて記録されますので、
ファイルの入力処理後にFor Each文でデータを出力すれば
目的のように出力できます。

Dim A As New StreamReader("C:~.csv", _
    Encoding.GetEncoding("shift_jis"))
Dim B As...続きを読む

QAndroidアプリの開発について

アンドロイドアプリ開発の勉強をしておりますが
全くの素人のためご教授願います。


以下で、氏名1を選択すると、勤務表が表示されるのですが
スクロールされずに悩んでおります。

自分なりに調べてみると
XMLでScrollViewの中にTextViewを入れれば
スクロールされるようなのですが、うまくスクロールされません。

どのように記述すれば、スクロールされるのでしょうか?


以上、宜しくお願いいたします。




package test.kintai;

/**import java.nio.charset.Charset; */

import android.app.Activity;
import android.app.AlertDialog;
import android.content.DialogInterface;
import android.os.Bundle;
import android.widget.TextView;

public class kintai extends Activity implements DialogInterface.OnClickListener{
/** Called when the activity is first created. */
public AlertDialog _alertDialog;

@Override
public void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
}

public void onResume(){
super.onResume();
CharSequence[] _char = {"氏名1","氏名2","氏名3","氏名4","氏名5","氏名6","氏名7"};
_alertDialog = new AlertDialog.Builder(this)
.setTitle("勤務表")
.setCancelable(false)
.setItems(_char, this).show();
}

@Override
public void onClick(DialogInterface dialog, int which) {
setContentView(R.layout.main);

if(_alertDialog == dialog){
TextView display = new TextView(this);
switch(which){
case 0:
display.setText("氏名1\n" +
"\n" +
"2011年4月\n" +
"\n" +
" 1日(日) 休\n" +
" 2日(月) 夜勤\n" +
" 3日(火) 休\n" +
" 4日(水) 休\n" +
" 5日(木) 休\n" +
" 6日(金) 夜勤\n" +
" 7日(土) 休\n" +
" 8日(日) 休\n" +
" 9日(月) 日勤\n" +
"10日(火) 日勤\n" +
"11日(水) 日勤\n" +
"12日(木) 日勤\n" +
"13日(金) 夜勤\n" +
"14日(土) 休\n" +
"15日(日) 休\n" +
"16日(月) 日勤\n" +
"17日(火) 日勤\n" +
"18日(水) 日勤\n" +
"19日(木) 日勤\n" +
"20日(金) 夜勤\n" +
"21日(土) 休\n" +
"22日(日) 休\n" +
"23日(月) 日勤\n" +
"24日(火) 日勤\n" +
"25日(水) 日勤\n" +
"26日(木) 日勤\n" +
"27日(金) 夜勤\n" +
"28日(土) 休\n" +
"29日(日) 休\n" +
"30日(月) 日勤\n" +
"31日(火) 日勤\n");
break;
case 1:
display.setText("氏名2");
break;
case 2:
display.setText("氏名3");
break;
case 3:
display.setText("氏名4");
break;
case 4:
display.setText("氏名5");
break;
case 5:
display.setText("氏名6");
break;
case 6:
display.setText("氏名7");
break;

}
setContentView(display);
}

}

}






---------------
■main.xml


<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:orientation="vertical"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
>

<ScrollView
android:layout_width="fill_parent"
android:layout_height="wrap_content">

<TextView
android:id="@+id/display"
android:layout_width="fill_parent"
android:layout_height="wrap_content"/>

</ScrollView>



</LinearLayout>

アンドロイドアプリ開発の勉強をしておりますが
全くの素人のためご教授願います。


以下で、氏名1を選択すると、勤務表が表示されるのですが
スクロールされずに悩んでおります。

自分なりに調べてみると
XMLでScrollViewの中にTextViewを入れれば
スクロールされるようなのですが、うまくスクロールされません。

どのように記述すれば、スクロールされるのでしょうか?


以上、宜しくお願いいたします。




package test.kintai;

/**import java.nio.charset.Charset; */

import android.app.Activi...続きを読む

Aベストアンサー

onClickメソッドの最後で
setContentView(display);
とやっているので、XMLの設定を TextViewで置き換えてしまっています。

以下のようにすればうまくいきますよ。
@Override
public void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.main);
}

@Override
public void onClick(DialogInterface dialog, int which) {
if(_alertDialog == dialog){
TextView display = (TextView)findViewById(R.id.display);
switch(which){
~省略~
}
}
}

QVisualBasic6.0でCSVをExcelに変換して保存する

こんにちは

どなたか教えていただけると光栄です。
CSVをエクセルに変換するにはどうしたらよいでしょうか??
今、現在マクロを使って変換しているのですが非常に遅いです。
流れとしては
エクセル起動

マクロ

エクセル終了
です。これをマクロを呼び出さずに変換したいのですが…どうしたらよいでしょうか??

Aベストアンサー

BOX_Fileさんのしたいことと違ったらすいません。
単純にCSVのファイルをエクセル形式で書き出し保存すると受け取ったのですが。。。

ここのHPにVBからエクセルを操作するサンプルが充実してました。
VBレスキュー(花ちゃん)&八日市PCサービス
http://www.bcap.co.jp/hanafusa/VBHLP/excelmenu.htm

作業の流れとしては
・CSVファイルを開いて内容を読み込む。
 (ここで読み込んだデータの変換等もできます。)
・読み込んだデータをエクセルファイルに書き出す。
・エクセルファイルを新規作成して保存する。
でいいのだと思います。

また、VBからエクセルを操作するサンプルにはマクロを
動かす方法もありましたのでご参考にしてください。

しかし、環境が違いますので一概には言えませんが、
連続して処理をするとなるとマクロを使った場合と
大差ないかもしれません。
この方法は逐一、エクセルを起動し作業を行うからです。

参考URL:http://www.bcap.co.jp/hanafusa/

BOX_Fileさんのしたいことと違ったらすいません。
単純にCSVのファイルをエクセル形式で書き出し保存すると受け取ったのですが。。。

ここのHPにVBからエクセルを操作するサンプルが充実してました。
VBレスキュー(花ちゃん)&八日市PCサービス
http://www.bcap.co.jp/hanafusa/VBHLP/excelmenu.htm

作業の流れとしては
・CSVファイルを開いて内容を読み込む。
 (ここで読み込んだデータの変換等もできます。)
・読み込んだデータをエクセルファイルに書き出す。
・エクセルファイルを新規作成...続きを読む

QAndroid開発(Listview)について

Androidアプリ開発における
listviewについて質問させてください。

以下で、東京都,神奈川県,千葉県,埼玉県,茨城県,栃木県,群馬県と表示されています。

東京をクリックしたら、新宿、上野、秋葉原
千葉をクリックしたら、千葉、市川、船橋
といったように、さらに地域を絞っていきたいと考えています。

どのような方法で、実現できるか
アドバイスして頂けると助かります。



■searchActivity.java

import android.app.Activity;
import android.os.Bundle;
import android.widget.*;


public class searchActivity extends Activity {
private ListView list;

@Override
public void onCreate(Bundle icicle) {
super.onCreate(icicle);
setContentView(R.layout.main);
String[] arr = {"東京都","神奈川県","千葉県","埼玉県","茨城県","栃木県","群馬県"};

// コンポーネントの設定
list = (ListView)this.findViewById(R.id.list);
ArrayAdapter<String> adapter = new ArrayAdapter<String>(this, R.layout.list, arr);
list.setAdapter(adapter);
}
}


■main.xml

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:orientation="vertical"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
android:textSize="20sp"
android:background="#ffffff"

>
<ListView
android:id="@+id/list"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
/>
</LinearLayout>



■list.xml

<?xml version="1.0" encoding="utf-8"?>
<TextView
xmlns:android="http://schemas.android.com/apk/res/android"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
android:textSize="20sp"
android:paddingTop="50.0px"
android:paddingLeft="20.0px"
android:background="#ffffff"
android:textColor="#000000"

/>






以上、宜しくお願いいたします。

Androidアプリ開発における
listviewについて質問させてください。

以下で、東京都,神奈川県,千葉県,埼玉県,茨城県,栃木県,群馬県と表示されています。

東京をクリックしたら、新宿、上野、秋葉原
千葉をクリックしたら、千葉、市川、船橋
といったように、さらに地域を絞っていきたいと考えています。

どのような方法で、実現できるか
アドバイスして頂けると助かります。



■searchActivity.java

import android.app.Activity;
import android.os.Bundle;
import android.widget.*;


...続きを読む

Aベストアンサー

ザックリとですが、こんな感じでやればよいと思いますよ。

■searchActivity.java(変更点)
@Override
public void onCreate(Bundle icicle) {
super.onCreate(icicle);
setContentView(R.layout.main);
String[] arr = {"東京都","神奈川県","千葉県","埼玉県","茨城県","栃木県","群馬県"};

// コンポーネントの設定
list = (ListView)this.findViewById(R.id.list);
ArrayAdapter<String> adapter = new ArrayAdapter<String>(this, R.layout.list, arr);
list.setAdapter(adapter);
list.setOnItemClickListener(new OnItemClickListener() {
@Override
public void onItemClick(AdapterView<?> arg0, View arg1, int arg2, long arg3) {
setList2(arg3);
}
});
}

private void setList2(long id) {
String[] tokyo = {"新宿","上野","秋葉原"};
String[] chiba = {"千葉","市川","船橋"};

ArrayAdapter<String> adapter = null;
switch ((int)id) {
case 0:
adapter = new ArrayAdapter<String>(this, R.layout.list, tokyo);
break;
case 2:
adapter = new ArrayAdapter<String>(this, R.layout.list, chiba);
break;
}
list.setVisibility(View.GONE);

ListView list2 = (ListView)this.findViewById(R.id.list2);
list2.setAdapter(adapter);
list2.setVisibility(View.VISIBLE);
}

■main.xml
<?xml version="1.0" encoding="utf-8"?>
<RelativeLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:layout_width="fill_parent" android:layout_height="fill_parent"
android:textSize="20sp"
android:background="#ffffff">

<ListView
android:id="@+id/list"
android:visibility="visible"
android:layout_height="fill_parent" android:layout_width="fill_parent"/>

<ListView
android:id="@+id/list2"
android:visibility="gone"
android:layout_width="fill_parent" android:layout_height="fill_parent"/>

</RelativeLayout>

ザックリとですが、こんな感じでやればよいと思いますよ。

■searchActivity.java(変更点)
@Override
public void onCreate(Bundle icicle) {
super.onCreate(icicle);
setContentView(R.layout.main);
String[] arr = {"東京都","神奈川県","千葉県","埼玉県","茨城県","栃木県","群馬県"};

// コンポーネントの設定
list = (ListView)this.findViewById(R.id.list);
ArrayAdapter<String> adapter = new ArrayAdapter<String>(this, R.layout.list, arr);
list.setAdapter(adapter);
list.setOnItemClickListen...続きを読む

Q(VBA)サブフォーム(データシート)ダブルクリック時に背景色を変更

ACCESS初心者です。非常に困っています。
どうそ、ご指導宜しくお願いしますm(_ _)m
サブフォームのレコードに対して、ダブルクリックを行った際に、そのレコードの
背景色を変更し、そのサブフォームを使用不可の状態にしたいのですが
うまくいきません。

現在は、ダブルクリックのイベントの中に下記ソースを記述しています。
DoCmd.RunCommand acCmdSelectRecord
[サブフォーム名].Enabled = False

DoCmd.RunCommand acCmdSelectRecordの下に
Refreshを入れると、背景色は変更されるのですが、レコードが一番先頭にもどってしまいます。

Aベストアンサー

>DoCmd.RunCommand acCmdSelectRecordの下に
>Refreshを入れると、背景色は変更されるのですが、レコードが一番先頭にもどってしまいます

ならば
1.レコード番号記憶
2.背景色変更
3.リフレッシュ
4.acCmdSelectRecord
の順番で行ってはダメなのですか?

(すいません。勝手な推測で話しておりますので、はずしているかもしれません。)

Qandroidのサンプルソースについての質問

このページを参考に学習をしていたのですが
http://libro99.appspot.com/index3?id=29&page=2&label=android

.javaに追加するぶぶんで

text.setText(selradio.getText());
~~~~
の波線の部分のエラーをどうしても消すことができず
困っています

package test.radiobutton;

import android.app.Activity;
import android.os.Bundle;
import android.widget.RadioButton;
import android.widget.RadioGroup;

public class radiobuttontest extends Activity {
/** Called when the activity is first created. */
@Override
public void onCreate(Bundle savedInstanceState) {
super.onCreate(savedInstanceState);
setContentView(R.layout.main);
RadioGroup group = (RadioGroup)this.findViewById(R.id.group);
RadioButton radio1 = (RadioButton)this.findViewById(R.id.radio1);
RadioButton radio2 = (RadioButton)this.findViewById(R.id.radio2);


radio2.setChecked(true);


int selid = group.getCheckedRadioButtonId();
RadioButton selradio = (RadioButton)this.findViewById(selid);
text.setText(selradio.getText());
}
}

main.xml


<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
android:orientation="vertical"
android:layout_width="fill_parent"
android:layout_height="fill_parent"
>
<TextView
android:layout_width="fill_parent"
android:layout_height="wrap_content"
android:text="@string/hello"
/>

<RadioGroup
android:id="@+id/group"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
>

<RadioButton
android:text="@string/radio1_label"
android:id="@+id/radio1"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
/>
<RadioButton
android:text="@string/radio2_label"
android:id="@+id/radio2"
android:layout_width="wrap_content"
android:layout_height="wrap_content"
/>

</RadioGroup>
</LinearLayout>

これ以上はかけませんがページの指示通りにやってるつもりです
どなたかご教授お願いします

このページを参考に学習をしていたのですが
http://libro99.appspot.com/index3?id=29&page=2&label=android

.javaに追加するぶぶんで

text.setText(selradio.getText());
~~~~
の波線の部分のエラーをどうしても消すことができず
困っています

package test.radiobutton;

import android.app.Activity;
import android.os.Bundle;
import android.widget.RadioButton;
import android.widget.RadioGroup;

public class radiobuttontest extends Activity {
/** Called when the activity is first creat...続きを読む

Aベストアンサー

こんにちは

Androidをやったことがないので間違っていたら済みません。

質問欄に掲載されたURLから辿ったところ、
少し前の項目”Google androidプログラミング入門: 「Activityクラスの基本を理解しよう!」 (6/8)”
http://libro99.appspot.com/index3?id=1023&page=6&label=android

この中では
private TextView text;
というものが宣言されています。

で、そのtextに
text = (TextView)this.findViewById(R.id.text);
でデザイン上のテキストビューを割り当てていると思うので

text.setText("こんにちは、" + s + "さん。");
でテキストの変更が可能になっているように思えます。

質問欄に掲載されたコードに載っていないだけかもしれませんが、
textの宣言と、割り当てを行えばよいのではないでしょうか?

Q表をテーブルに変換するマクロ(Excel2007)

お世話になります。カテゴリ違いでしたらご指摘ください。
Excel2007で範囲A1:D8にテーブル書式を設定するマクロを作成し、作業中のブックに保存しました。

Sub テーブル書式()
'
' テーブル書式 Macro
'

'
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$8"), , xlYes).Name = _
"テーブル1"
Range("テーブル1[#All]").Select
ActiveSheet.ListObjects("テーブル1").TableStyle = "TableStyleMedium21"
End Sub

このマクロを別シートで実行しようとすると「実行時エラー‘1004’RangeクラスのSelectメソッドが失敗しました。」と表示されます。
表を書式付きのテーブルに変換するとき自動的にテーブル名がつけられ、それが既に記述されているテーブル名と異なるため発生するエラーかと思うのですが、VBAの知識が乏しくどのように修正すればいいのか分からず困っております。
ブック内のどのシートでもMedium21の書式付きテーブルに変換できるようにするにはどうすればよいか教えてください。
補足要求などあればご指摘ください。
よろしくお願いいたします。

お世話になります。カテゴリ違いでしたらご指摘ください。
Excel2007で範囲A1:D8にテーブル書式を設定するマクロを作成し、作業中のブックに保存しました。

Sub テーブル書式()
'
' テーブル書式 Macro
'

'
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$D$8"), , xlYes).Name = _
"テーブル1"
Range("テーブル1[#All]").Select
ActiveSheet.ListObjects("テーブル1").TableStyle = "TableStyleMedium21"
End Sub

このマクロを別シートで実行しようとすると「実行...続きを読む

Aベストアンサー

Range("テーブル1")などとする場合は SheetまたはBookのNamesコレクションに『テーブル1』が登録されていないといけません

ListObjects("テーブル1").Range.Select
で選択できると思いますよ

ただ Selectで選択する必要があるのでしょうか?

ListObjects("テーブル1").TableStyle ="TableStyleMedium21"
で変更可能なように思います ・・・


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

人気Q&Aランキング

おすすめ情報