現在、VBを使用し、コーティングをしているのですが、
データベースから取り込んだデータを、順にFlexGridに取り込んだ後、データベース上の同じフィールドの値、(たとえば、"aaaa"と"b")があるのですが、実行後、画面を確認すると、"aaaa"の方は、セル内で左寄せに、次の行の"b"の方は、セル内で右寄せになってしまいます。
何故同じ縦列でも、右に寄ったり左に寄ったりするのでしょうか?どなたかご教授下さい。

A 回答 (2件)

msflexgrid.colalignment(0)=flexalignrightcenter


というように、セルごとにアラインを設定してはいかがですか?
    • good
    • 0
この回答へのお礼

durian_skさん!お返事ありがとうございました!

原因は未だ不明ですが、おっしゃるとおり、
Grid1.ColAlignment(i) = flexAlignRightCenter(右)
Grid1.ColAlignment(i) = flexAlignleftCenter(左)
で、調整することに成功しました!
ありがとうございました!

お礼日時:2005/04/15 10:40

こんにちは、じゃんぬねっと です。



DB にバインドしているのならば、
数値フィールドは右寄せになりますし、
文字列フィールドは左寄せになるはずです。

今回のはソレではない?
    • good
    • 0
この回答へのお礼

じゃんぬねっとさん、お返事ありがとうございました!
うーん。今回グリッドにインプットしているデータは、全て文字列なんです・・。

原因は未だ不明ですが、
Grid1.ColAlignment(i) = flexAlignRightCenter(右)
Grid1.ColAlignment(i) = flexAlignleftCenter(左)
で、強引に調整することに成功しました!
ありがとうございました!

お礼日時:2005/04/15 10:38

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

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

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

QWindows Storage Server 2003 R2(英語版)での不具合

昨日、Windows Storage Server 2003 R2 SP1(英語版)に
Windows Server 2003 SP1用のIE7(英語版)をインストールしたところ
何か実行しようとすると
「windows cannot access the specified device path or file.You may not have the appropriate permissions to access the item.」と表示されてしまい何もできなくなってしまいました。
コントロールパネルからIE7をアンインストールしようとしても
プログラムの追加と削除を押した時点で上記メッセージが
表示されてしまい、困っております。
どなたか解決方法を教えてください。

Aベストアンサー

Administrator権限の有るUserで、
再起動するか
起動時F8を押して、セフティーモードにしUser欄に何も入れない
Administrator入っていって操作して見て下さい。

Qcsvファイルを読み込んでデータベースのデータと比較して異なっていた場

csvファイルを読み込んでデータベースのデータと比較して異なっていた場合は更新するようにしたいと考えています。

csvデータ…10
データベースから取得したデータ…10.0
※比較するテーブルのフィールドのデータ型はFLOAT型です。

文字列を数値変換して比較、またはデータベースから取得したデータを文字列に変換して比較、どっちがいいのでしょうか。
またどのように比較すればいいのでしょうか。

くだらない質問かもしれませんが宜しくお願いします。

Aベストアンサー

No1の方が言いたいこと良くわかります。けして、質問の意味取り違えていませんよ。

>文字列を数値変換して比較、またはデータベースから取得したデータを文字列に変換して比

問題になるのは、対象となるデーターの背景です。何のデーターを対象としているかです。

例えば、計測又は計量したデーター10.10 と10.1 では意味が違いますね。10.10では100分の1まで計測したが100分の1は0だったという意味です。10.1は10分の1までの計測で、100分の1の値は不明と言うことです(又は四捨五入などの圧縮したデーター)。

数値的には同じ10.1ですが、何桁で扱うかが問題になります。DBでデーター型で扱う利点は、このような時に精度をそろえられるところにあります。文字列として扱ってしまうと、余計な(0と言う文字を追加)作業が出てくる場合もあります。

逆にそんなのどうでもいい、と言う場合もたくさんあり、ケースbyケースです。

文字列として"10.10" == "10.1"なるのかと言う問題ですね。これを==で結びたいときは数値として扱うべき、そうでない時は文字列として扱うと簡単です。

と言うことで回答はケースbyケースです。

No1の方が言いたいこと良くわかります。けして、質問の意味取り違えていませんよ。

>文字列を数値変換して比較、またはデータベースから取得したデータを文字列に変換して比

問題になるのは、対象となるデーターの背景です。何のデーターを対象としているかです。

例えば、計測又は計量したデーター10.10 と10.1 では意味が違いますね。10.10では100分の1まで計測したが100分の1は0だったという意味です。10.1は10分の1までの計測で、100分の1の値は不明と言うことです(又は四捨五入などの圧...続きを読む

Q不具合の少ないスマホってありますか?

これから初めてスマホを購入しようと考えている者です。
スマホの知識があまりなく、お力を貸して頂けると嬉しいです。


スマートフォンの不具合が多々報告されているようですが、不具合の多さ・どのような不具合が発生するかは機種やメーカーによって違うのでしょうか?それともAndroid、iphoneによって違うのでしょうか?それともdocomo、au、ソフトバンクによってでしょうか。


また、不具合はアップデートで修正されているようですが、どんな不具合が発生しても、きちんとすべての不具合を、機種やメーカーに関係なくそのつどアップデートによって修正してもらえるのでしょうか?


スマホを購入するにあたり、できるだけ不具合の少ないものを購入したいと考えており、このような質問をさせて頂きました。
よろしくお願い致します。

Aベストアンサー

まず、基本的なことですが買ってきたままの状態で使用している限り不具合はほとんど起きないはずです。

不具合が起こるのは、検証不足のアプリをインストールしたことが原因となるケースが殆んど。


>どんな不具合が発生しても、きちんとすべての不具合を、機種やメーカーに関係なく
>そのつどアップデートによって修正してもらえるのでしょうか?
これはアプリ開発者次第。
アプリ開発者が個人レベルだと、すべての端末を用意することは不可能なので特定機種での不具合解消は手探り状態となるため、解決に至るまで時間がかかったり諦めなきゃならないことになるかもしれません。

OSレベルでの不具合対応はキャリアによってではなくメーカーによってスタンスが変わってくるはずです。

iPhoneは本体の開発・製造メーカーがAppleのみですから不具合管理が一元化されているため対応は早いと思うし、新機種発売の間隔も長いので不具合解消のために買い換えなきゃならないということも殆ど無いでしょう。

QvaSpreadのセルの右寄せ表示

vaSpreadを使用して、String型のデータを表示させようとしています。

String型の数字を右寄せで表示させたいのですが、どのようにしたらよいのでしょうか?

SpreadDesignerやHelpでプロパティを探しても見つかりません。

どなたかご存知でしたら教えてください。

Aベストアンサー

SpreadDesignerで
行、列またはセルを
右クリックして、
文字をクリック。
そしたらプロパティウインドウが表示されるので、
右寄せにチェックをつける。

Q光学式マウスの不具合

使用中に赤い光が突然に消えてマウスが動作しなくなる不具合です

接続USB端子を抜き差しすると回復します、またパソコンの電源を入れ直しても回復します

原因は下記の何れでしょうか?(このパソコンは使用開始後2年のDELL社品です)

1:マウス本体の不具合
2:USB端子の不具合
3:パソコン本体の不具合
4:その他

原因と対策などについてアドバイスをお願いします

Aベストアンサー

故障ですね。
そのマウスが他のパソコンで正常なら、問題のパソコンのマザーボード障害を疑いますね。

QエクセルVBAでテキストボックスをコピペし、セルの右に寄せたい

VBA初心者です。
日程表にテキストボックスをコピーして貼り付けるために、見よう見真似で「給食」と入力されたテキストボックスをコピーし、アクティブセルに貼り付けるVBAを作成しましたが、実行するとコピー元のテキストボックスが選択されてしまいます。

Sub 給食のコピー()
ActiveSheet.Shapes.Range(Array("給食")).Select
Selection.Copy
ActiveSheet.Paste Destination:=ActiveCell
End Sub

やりたいことは
①「給食」と入力されたテキストボックスをコピーし、アクティブセルに貼り付けた後のテキストボックス(オブジェクト)の名前を給食1、給食2・・・というように名前を変えたい(コピー元の「給食」の名前のテキストボックス(オブジェクト)は残しておきたいので貼り付けたテキストボックス(オブジェクト)の名前が変わればOKです)
②アクティブセルには元々文字が入力されているため、セルの右側に貼り付けられるようにしたい

「給食」のほかに「弁当」や「買い出し」といったテキストボックスがあり、それぞれボタンを作成し、ボタンを押せばアクティブセルに挿入されるようにしています。
(分かりやすいようにテキストボックスに入力されている文字とテキストボックス(オブジェクト)の名前を同じにしています)

よろしくお願いいたします。

VBA初心者です。
日程表にテキストボックスをコピーして貼り付けるために、見よう見真似で「給食」と入力されたテキストボックスをコピーし、アクティブセルに貼り付けるVBAを作成しましたが、実行するとコピー元のテキストボックスが選択されてしまいます。

Sub 給食のコピー()
ActiveSheet.Shapes.Range(Array("給食")).Select
Selection.Copy
ActiveSheet.Paste Destination:=ActiveCell
End Sub

やりたいことは
①「給食」と入力されたテキストボックスをコピーし、アクティブセルに貼...続きを読む

Aベストアンサー

Sub 給食のコピー()
  Dim shp As Shape
  Set shp = ActiveSheet.Shapes("給食").Duplicate
  shp.Name = "給食2"
  shp.Top = ActiveCell.Top
  shp.Left = ActiveCell.Left + ActiveCell.Width - shp.Width
End Sub

とか。

QSleipnir 2.21て本当に不具合解消されてますか?

 Sleipnir 2.21が出たみたいですが、Sleipnir 2.20の不具合は本当に
解消されてますか?Sleipnir 2.10で特に不具合が無いのですが、もし
Sleipnir 2.21に不具合が無いなら入れるかどうか迷ってます。

Aベストアンサー

うちの環境では2.20の不具合は解消しています。
WinXPSP2

心配であればSleipnir 2.10をフォルダごと、他のフォルダにコピーしてとっておけば、不具合が出たとき、もとのフォルダに上書きコピーしなおせば、2.10に戻せます。
元に戻すときは、書き戻す前に新しく追加したお気に入りがあればFavorite.ffvとFavoriteGroup.ffgをバックアップしておいて後で元のフォルダに入れればそのまま使えます。

QTextboxまたはMaskEditboxでの数字の右寄せ

V.B6.0で開発しております。
業務用のソフトウェアの一部で、金額などの数値を入力できるコントロールを使おうと思います。そのとき、決まった位置で小数点を用いたり、三桁毎のコンマを自動表示させるといった編集も含めて、キャレットを右端に置いて右詰めで数字を順次表示させるにはどのようにしたら良いでしょうか。
Spreadなどのアドオンソフトを用いて作成したことはあるのですが、今回はV.B以外の費用はできればかけたくありません。付加的なOCXを購入する必要があるのでしょうか。

Aベストアンサー

私は以下のようにやっています
1.Alignmentプロパティを右詰にする。
2.KeyPressイベントで数字以外の入力を受け付けないようにする。
3.LostFocusイベントでカンマ編集を行う。
4.GotFocusイベントで、カンマ編集の解除を行う。
数字入力項目が多数あり、文字入力項目と混在している場合等は、2.はFormのKeyPressイベントに書いて、Controll名を判定して行ったりしています。

Qdocomo F-06Bの不具合について

docomo F-06Bの不具合について
docomo F-06Bを購入しようと思ってるんですが、ネットで調べたら不具合があるというのを見ました。
どのような不具合があるのですか?

Aベストアンサー

以下のでは?

[参考]価格.com - 『不具合?』 富士通 docomo PRIME series F-06B のクチコミ掲示板
http://bbs.kakaku.com/bbs/K0000111921/SortID=11527198/

そのうちソフトウェアアップデートで修正入るんじゃないでしょうかね。

QVB.NETで、EXCELの右寄せ

VB.NETで、EXCELのセルに貼り付けたいのです。
.SetValue(rowIndex2, 3, "ABC")
と、しました。これを右寄せにするには
どうすれば良いのでしょうか?
宜しくお願い致します。

Aベストアンサー

お世話になります。

質問者さんの
> VB.NETで、EXCELのセルに貼り付けたいのです。
> .SetValue(rowIndex2, 3, "ABC")
この文章が、
VisualBasic のどのバージョンと
Excel のどのバージョンで
どういった方法でやっているのか、
何に対して SetValue メソッドを実行しているのか
さっぱり解りませんが、
COM を使った方法だと、こんな感じです。
(VB 2005、Excel 2003)

Imports Microsoft.Office.Interop

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim xlApplication As New Excel.Application()
    Dim xlBooks As Excel.Workbooks
    xlBooks = xlApplication.Workbooks

    Dim xlBook As Excel.Workbook = xlBooks.Add()
    Dim xlSheets As Excel.Sheets = xlBook.Worksheets
    Dim xlSheet As Excel.Worksheet = DirectCast(xlSheets.Item(1), Excel.Worksheet)
    Dim xlCells As Excel.Range = xlSheet.Cells
    Dim xlRange As Excel.Range
    xlRange = DirectCast(xlCells(1, 2), Excel.Range)
    xlRange.Value = "ABC"
    ' 右寄せ
    xlRange.HorizontalAlignment = Excel.XlHAlign.xlHAlignRight
    xlApplication.Visible = True
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlCells)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApplication)
  End Sub
End Class

お世話になります。

質問者さんの
> VB.NETで、EXCELのセルに貼り付けたいのです。
> .SetValue(rowIndex2, 3, "ABC")
この文章が、
VisualBasic のどのバージョンと
Excel のどのバージョンで
どういった方法でやっているのか、
何に対して SetValue メソッドを実行しているのか
さっぱり解りませんが、
COM を使った方法だと、こんな感じです。
(VB 2005、Excel 2003)

Imports Microsoft.Office.Interop

Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object,...続きを読む


人気Q&Aランキング

おすすめ情報