• ベストアンサー

Spreadの選択行の取得について

いつもお世話になっております。 VB6、Spread3.0の環境でコーディングしています。 Spreadを単一行モードにして、1行だけ選択された 状態で選択された行の行番号を取得したいのです。 Me.vaSpread1.Row = Me.vaSpread1.SelModeIndex Me.vaSpread1.Col = 1 で取得しようとしても、うまくいきません。 どのようにすれば、行番号を取得できるのでしょう? ご存知のかたがおられましたら、よろしくお願い します。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

SpreadのクリックイベントでRowに渡されているので それを使えばいいと思います。

sansan33311
質問者

お礼

ご回答ありがとうございます。

関連するQ&A

  • GrapeCityのSpreadについて

    いつもお世話になっております。 VB6.0、Spread3.0を使っています。 下記コードで罫線の色を変えようとしているのですが、 うまくいきません。 Me.vaSpread3.Col = Me.vaSpread3.ActiveCol Me.vaSpread3.Row = Me.vaSpread3.ActiveRow Me.vaSpread3.CellBorderType = 16 Me.vaSpread3.CellBorderStyle = 5 Me.vaSpread3.CellBorderColor = MyColor Me.vaSpread3.Action = SS_ACTION_SET_CELL_BORDER おわかりのかたがおられましたらよろしくお願いいたします。

  • SPREAD SHEETでの複数行の削除処理

    SPREAD SHEETでの複数行の削除処理の方法をどなたか御存知ないでしょうか? バージョンはSPREAD Sheet3.0Jです。 次のようにしたんですがうまく行きません・・・ Me.vaSpread1.Row = Row Me.vaSpread1.Row2 = Row + 1 Me.vaSpread1.BlockMode = True Me.vaSpread1.Action = SS_ACTION_DELETE_ROW Me.vaSpread1.BlockMode = False よろしくお願い致します。

  • spread6.0でShiftキードラッグの行選択

    VB6、spread6.0Jで開発をしております。 spreadの行ヘッダをマウスのドラッグで複数選択した場合に、コード上で行番号を取得したいのですが、どのようにすればいいのか検索しても分からなかったので、教えてください。 ctrlで複数選択するのも必要なので、オペレーションモードは「拡張選択モード」にしているのですが、shiftキーで行選択した状態で、コードで行番号を取得しようとすると、1行分しか取得できていないでいます。 どうか、宜しくお願いいたします。

  • Spreadでの複数行選択

    VB6,Spread6で開発しています。 複数行の選択を許した場合、選択された行の取得方法を教えてください。 よろしくお願いします

  • SPREADの行の削除

    VB6.0 SPREAD3.0 OS:2000 SPREADでカレント表示した行を削除ボタンを押したら 削除したいのですがやり方がうまくわかりません。 クリックしたらカレント表示 Private Sub oSpmain_Click(ByVal Col As Long, ByVal Row As Long) With oSpmain .ReDraw = False .Row = -1: .Col = -1: .BackColor = vbWhite .ForeColor = RGB(255, 300, 0) .BlockMode = True .Row = Row: .Row2 = Row .Col = 1: .Col2 = .MaxCols .BackColor = .ForeColor .ForeColor = vbWhite Xor .ForeColor .BlockMode = False .ReDraw = True End With End Sub ここまではできたのですが、削除が思うようにできません。アドバイスお願いします。

  • GrapeCityのSpreadの複数セルの取得について

    度々、お世話になります。 Spread上で一つのセルが選択されている場合、 .Col = .ActiveCol .Row = .ActiveRow といったコードで選択されている位置を取得 できますが、セルブロックが選択されている場合 .Col1 = .???????? .Row1 = .???????? .Col2 = .???????? .Row2 = .???????? といった形式で選択セルの位置を取得したいと 考えております。 しかし、????????の部分がわからずに困っております。 どうかよろしくお願いいたします。

  • SPREADでカーソルの位置を1行目に戻したいなぁ

    VB6とSPREADver7.0を使っています。 SPREADのOperationModeプロパティは2(行モード)です。 初期状態で、SPREADカーソルの位置は1行目にあります。 SPREADの2行目以下の行を選択し、ボタン押下で SPREADカーソルの位置を1行目に戻す処理を知りたいのです(泣 RowcountやRecordCountを使うやり方があると聞いたのですが・・・  どなたかわかる方よろしくお願いします。

  • vaSpreadのチェックボックスとコマンドボタンについて

    VBの初心者です。よろしくお願いします。 VB6.0&vaSpread3.0を使用しています。 Spreadの同一行にコマンドボタンとチェックボックスを配置しています。 コマンドボタンをクリックすると1行削除するようにしたいと思っています。 ButtonClickedにて1行削除できるよう、記載したのですが、 チェックボックスをクリックしてもButtonClickedが反応し、1行削除されてしまいます。 コマンドボタンとチェックボックスを使い分けたい場合、どのように記載したらよろしいでしょうか? 下記にコードを記載します。 Private Sub vaSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer) With vaSpread1 .Row = Row .Row2 = Row .BlockMode = True .Action = ActionDeleteRow .BlockMode = False .MaxRows = .MaxRows - 2 End With End Sub よろしくお願いいたします。

  • 選んだ行の削除

    VB6.0 SPREAD3.0 SPREADで何行か表示している時に削除したい行をクリックし、その行に色(黄色)をつけ、その色のついた行を削除ボタンを押したら削除する・・・という仕様にしたいと思っております。 そして以下のように書いてみたのですが、問題があり、 (1)クリックした行の色が変わると同時に何故だか最終行の文字の色が黄色に変わってしまう。 (2)例えば一行目をクリックしてから3行目をクリックすると一行目の文字の色が黄色になってしまい、もとに戻らない。 (3)行を選択しないまま削除ボタンを押すと下から順に行が削除されてしまう。 という3つの問題があり、解決できないでいます。 なにかアドバイスがありましたらよろしくお願いします。 '---クリックした行の色を反転--- Private Sub spread_Click(ByVal Col As Long, ByVal Row As Long) With oSpmain .ReDraw = False .Row = .Row: .Col = -1: .BackColor = vbWhite .ForeColor = RGB(255, 300, 0) .BlockMode = True .Row = Row: .Row2 = Row .Col = 1: .Col2 = .MaxCols .BackColor = .ForeColor .ForeColor = vbWhite Xor .ForeColor .BlockMode = False .ReDraw = True End With End Sub '---削除ボタン--- Private Sub sakujyo_Click() With spread .BlockMode = True .Action = ActionDeleteRow .BlockMode = False .MaxRows = .MaxRows - 1 End With End Sub

  • DataGridViewで、選択した行の値を取得したい。

    VB2005環境です。 VB2005で、選択した行の、特定の列から値を取って、 テキストボックスに出力したいと思っています。 Itemプロパティかと思い、 TxtBox1.Text = Me.DataGridView1.Item _(0,Me.DataGridView1.CurrentRow.Index).ToString と記述してみました。1列目の、選択した行と交わるセルの 値が取れるかと思いきや、うまく取得できません。 方法を教えていただけないでしょうか? よろしくお願いします。