初めましてシゲピョンといいます。
この度、lotus123から
Excel2000に乗り換えました。
そこで、いきなりですが
lotusで作成したマクロが動かないのはいいのですが、
@cellpointer関数が使えません。
Excelで、
カレントセルの内容(数値)を表示する関数があるのでしょうか?
どなたかお知恵を貸してください。

A 回答 (1件)

lotus を最近触ってないので良く分からないのですが、


@cellpointer は cell という関数で置きかえられている
ことになってます。

参考URL:http://www.state.la.us/pclan/excel/function.htm

この回答への補足

早速ありがとうございます。
英語ですね・・・・・
もう一度ヘルプ等確認してみます。

補足日時:2001/04/10 17:09
    • good
    • 0
この回答へのお礼

すみませんでした。
contentsで対応しているのですね。
ヘルプを見たときに、
cell関数は、範囲の指定が必要なんだと
思いこんでいました。

お礼日時:2001/04/10 17:17

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

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

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

QJavaでカレントディレクトリを移動するには?

Javaの中で、カレントなディレクトリを移動させ、相対PATHで既存ディレクトリを認識させたいのですが、期待する結果が得られません。
Javaの中でカレントディレクトリを移動する場合、System.setProperty()メソッドを利用して、"user.dir"を書き換えれば良いと思ったのですが、間違いでしょうか?
間違いである場合、Javaの中ディレクトリを移動させる方法はあるのでしょうか?

以下のプログラムは、下記状況下にて実行したものです。

C:\Java
|-app ←プログラムを実行時にいるフォルダ
|-sub ←相対PATHで認識させたい既存フォルダ

----------- ソース --------------------------

import java.io.*;
class TestTest
{
public static void main(String args[])
{
System.out.println("Current dir : " + System.getProperty("user.dir"));
System.out.println("Move Dir !");
System.setProperty("user.dir","C:\\Java");
System.out.println("Current dir : " + System.getProperty("user.dir"));
File f = new File("sub");
System.out.println("Dir existance : " + f.exists());
}

}
---------------------------------------------

----------------実行結果----------------------

C:\Java\app>java TestTest
Current dir : C:\Java\app
Move Dir !
Current dir : C:\Java
Dir existance : false←trueにならない!

--------------------------------------------

Javaの中で、カレントなディレクトリを移動させ、相対PATHで既存ディレクトリを認識させたいのですが、期待する結果が得られません。
Javaの中でカレントディレクトリを移動する場合、System.setProperty()メソッドを利用して、"user.dir"を書き換えれば良いと思ったのですが、間違いでしょうか?
間違いである場合、Javaの中ディレクトリを移動させる方法はあるのでしょうか?

以下のプログラムは、下記状況下にて実行したものです。

C:\Java
|-app ←プログラムを実行時にいるフォルダ
|-su...続きを読む

Aベストアンサー

>System.setProperty()メソッドを利用して、"user.dir"を書き換えれば良いと思ったのですが、間違いでしょうか?
Systemプロパティは、いわば環境変数のようなものなので、"user.dir"の書き換え即ちカレントディレクトリの移動とはならないです。

>Javaの中ディレクトリを移動させる方法はあるのでしょうか?
JAVA の基本機能(OS依存のAPIを呼び出すなどをしないという場合)では、カレントディレクトリの移動はできなかったと思います。

QEXCEL2000でのLotus123キー操作

EXCEL97までは、ツール>オプション>移行> で、
「Lotus123形式のキー操作」にチェックをすると、
F2キーで、セル内容をコピーして、
F3キーで、その内容を貼り付け、
ってなことができて、とても便利だったのですが、
EXCEL2000になってから、どうもできないみたいです。
これはやはりスペックなのでしょうか?
それとも、なにか別の指定なり操作なりをすると
同等のことができるのでしょうか?
お願いします。

Aベストアンサー

こんにちは

 以下のページがご参考になるのでは?

[XL2000]Lotus1-2-3形式のキー操作に設定した場合の F3 キーの動作
http://www.microsoft.com/JAPAN/support/kb/articles/J055/3/68.htm

F3キーの機能が消えてしまいましたエクセル2000
http://cgi.fuji.ne.jp/~fj2094/cgi-bin5/wwwlng.cgi?print+200009/00090015.txt

マクロの実行手順を教えてください。
http://cgi.fuji.ne.jp/~fj2094/office2000/wwwlng.cgi?print+200006/00060013.txt

 私の場合はマクロを使わず、

1.F2
2.Shift+↑
3.Ctrl+C
4.Esc

としてから、Ctrl+Vとしています。

参考URL:http://www2.odn.ne.jp/excel/

QVBA ネットワーク上のファイルでカレントフォルダを取得するには?

VBA ネットワーク上のファイルでカレントフォルダを取得するには?

VBA超初心者でネットで色々調べて、ところどころコピーしながらプログラムを作っています。
ローカルのPCでは問題なく動くまでになったのですが、実際にはネットワーク上の共有サーバで実行したいのですが、ネットワーク上ではカレントパスがうまく設定できていないようで、動きません。

CreateObject("WScript.Shell").CurrentDirectory = ThisWorkbook.Path

というコードでVBAが置いてあるフォルダをカレントディレクトリに設定するようにしています。

どのようにしたらネットワークサーバで動くようになりますか?

Aベストアンサー

WebDAVの環境がないため、関連のありそうな情報をあたってみました。
もしかすると、OSの機能で制限されているかもしれません。

http://heipooh.jugem.jp/?eid=56

VBAではなく、直接手動操作で設定した時にはどうでしょうか?
できないとなると、何らかの環境設定が必要なのではないでしょうか?
上記URLの操作では、エクスプローラからネットワークドライブとして認識させています。

EXCELの機能については、下記URLの「カレントドライブとカレントフォルダ」をご参照ください。
http://officetanaka.net/excel/vba/tips/tips91.htm

現状のネットワーク構成ですと、カレントディレクトリの前に、カレントドライブを認識し得る環境がないと推察されます。

取得する方法について、他もあたってみて、情報が見つかりましたら投稿致します。

QExcel関数と数値の違い?について知恵を貸していただけると幸いです

いつも大変お世話になっております。

C14のセルにとある数値が入力されています。
F14のセルに
=IF(IF(F15<>0,$C$14,"")="","",IF(F15<>0,$C$14,""))と関数が入力されています。

F15セルに
=IF(IF(P15*10=0,"",P15*10)=0,"",IF(P15*10,"",P15*10))と関数が入力されています。

上記の関数を使うにあたり、P15のセルに数値を入力した時(初めて数値が入力された時)にF14のセルにC14の数値を表示させたいと思っているのですが、F15セルの関数にF14セルの関数が反応してC14の数値を表示してしまって困っています。

解決方法があるようでしたら皆様の知恵をお貸しいただけると幸いです、よろしくお願いいたします。

Aベストアンサー

F14=IF(F15="","",C14)
F15=IF(COUNT(P15)>0,P15*10,"")

こういうことですか?

なんかやたらに複雑な式がかかれていますが、
要は、P15に数値が入力されたら、F15にP15の10倍の数値を、F14にC14の値を表示させればいいんですよね?
だったら、これでできます。
ちなみに、ちょっとひねってあるのは、COUNTを使ったところで、P15に数値以外の文字が入力された場合は反応しないようになっています。代わりに、数値であれば、0を入力しても反応します。
これが嫌なら、COUNT(P15)>0の部分をP15<>0に置き換えてください。

ご参考:
P15*10=0???意味ないですよね?P15=0で充分です。

Excelでは、空白セル、""(長さゼロの文字列)、0は数値として扱う限りにおいて同一です(0とみなされる)。
空白セルを明確に取り出すためにはISBLANK関数、""を取り出すためには=""とかの式にしないとだめです。

QPHPでカレンダー

PHPを使ってカレンダーを作成しました。が、コードの意味が良く分かりません。

コードは以下の通りです。

<?php
if($_GET['num']==''){
$today_year = date("Y"); //4桁の西暦年
$today_month = date("n"); //1~12の月
}else{
$timestamp = mktime(0,0,0,date("n")+$_GET['num'],date("d"),date("Y"));
$today_year = date("Y",$timestamp); $today_month = date("n",$timestamp); //1~12月
}
$current = mktime(0,0,0,$today_month,1,$today_year);
$first_day = date("w",$current); //1日の曜日を0~6に当てはめる
$last_day= date("t",$current); //月の日数
?>
<html>
<head>
<title>カンレンダー</title>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp">
</head>
<body>

<h1><?php print (date("Y年m月",$current)); ?>のカレンダー</h1>

<table border="1" cellpadding="0" cellspacing="2">
<tr>
<th>日</th><th>月</th><th>火</th><th>水</th><th>木</th><th>金</th><th>土</th>
</tr>

<?php

for($i=1; $i<=$first_day+$last_day; $i++){
if($i%7==1){print ("<tr>");}
if($i>$first_day){
print ("<td>".($i-$first_day)."</td>");
}else{
print ("<td></td>");
}
if($i%7==0){print ("</tr>");}
}

?>
</table>

</body>
</html>

for以降の部分が良く分かりません。よろしくお願いします。※上記のスクリプトで正しく表示されることは確認済です。

PHPを使ってカレンダーを作成しました。が、コードの意味が良く分かりません。

コードは以下の通りです。

<?php
if($_GET['num']==''){
$today_year = date("Y"); //4桁の西暦年
$today_month = date("n"); //1~12の月
}else{
$timestamp = mktime(0,0,0,date("n")+$_GET['num'],date("d"),date("Y"));
$today_year = date("Y",$timestamp); $today_month = date("n",$timestamp); //1~12月
}
$current = mktime(0,0,0,$today_month,1,$today_year);
$first_day = date("w",$current...続きを読む

Aベストアンサー

$i は、1から順番に増えていきますけれども、
1 2 3 4 5 6 7
8 9 10 11 12 13 14
……
ですので、
$i を 7 で割った余りが1の時には週の始まりで
$i を 7 で割った余りが0の時には、週の終わりです。
それが、
>if($i%7==1){print ("<tr>");} #週の始まり
>if($i%7==0){print ("</tr>");} #週の終わり
で一組の<tr></tr>が一週間ということですね。
>if($i>$first_day){
の部分は、月の始まり以前かどうかを調べて
>print ("<td></td>");
で月が始まっていない部分はスペースに
>print ("<td>".($i-$first_day)."</td>");
で始まっている部分はその日を表示するようになっています。

QLotus1・2・3とExcelの関数の違いについて

Excelは値段が高いのでLotusにしようかと思っています。
関数が一緒であればLotusにしようかと思っていますが、Excelとほぼ一緒でしょうか?よろしくお願いします。

Aベストアンサー

違いは細かいですが、あれこれあります。

Excel と Lotus 1-2-3 の数式の計算方法の相違点
http://office.microsoft.com/ja-jp/assistance/HP051986941041.aspx
401697 - [XL] Q&A (Lotus 1-2-3 からの移行ユーザー編)
http://support.microsoft.com/default.aspx?scid=kb;ja;401697


> 関数が一緒であればLotusにしようかと思っていますが、

普通に使う関数については一緒と思って良いです。

将来的に自分しか使わないのなら、LotusでOKです。
Lotus→Excelに変換する自信があるならLotusでOKです。

参考URL:http://office.microsoft.com/ja-jp/assistance/HP051986941041.aspx

Q万年カレンダーについて

万年カレンダーについて質問します。例えば、11月10日(月)が休みとした場合に11月10日(月)セルの背景を赤色にする方法を教えて下さい。下記のプログラムに加える記述方法を教えて下さい。

<?php
if($_GET['num']==''){
$today_year =date("Y");
$today_month=date("n");
}else{
$timestamp=mktime(0,0,0,date("n")+$_GET['num'],date("d"),date("Y"));
$today_year =date("Y",$timestamp);
$today_month=date("n",$timestamp);
}
$current=mktime(0,0,0,$today_month,1,$today_year);
$first_day=date("w",$current);
$last_day=date("t",$current);
?>
<html>
<head>
<title>万年カレンダ</title>
</head>
<body>
<h1 style="background:#cccccc">
<?php print(date("Y年m月",$current)); ?>のカレンダ</h1>
<table border="1" width="300">
<tr>
<th>日</th><th>月</th><th>火</th><th>水</th>
<th>木</th><th>金</th><th>土</th>
</tr>
<?php
for($i=1;$i<=$first_day+$last_day;$i++){
if($i%7==1){print("<tr>");
}
if($i>$first_day){
print("<td>".($i-$first_day)."</td>");
}else{
print("<td></td>");
}
if($i%7==0){print("</tr>");}
}
?>
</table>
</body>
</html>

万年カレンダーについて質問します。例えば、11月10日(月)が休みとした場合に11月10日(月)セルの背景を赤色にする方法を教えて下さい。下記のプログラムに加える記述方法を教えて下さい。

<?php
if($_GET['num']==''){
$today_year =date("Y");
$today_month=date("n");
}else{
$timestamp=mktime(0,0,0,date("n")+$_GET['num'],date("d"),date("Y"));
$today_year =date("Y",$timestamp);
$today_month=date("n",$timestamp);
}
$current=mktime(0,0,0,$today_month,1,$today_year);
$first_day...続きを読む

Aベストアンサー

こんな方法でどうでしょうか。

print("<td>".($i-$first_day)."</td>");

のところを次のようにします。

if(($today_month==11) and ($i-$first_day==10)){
$bgcolor="red";
}else{
$bgcolor="";
}
print("<td bgcolor=\"".$bgcolor."\">".($i-$first_day)."</td>");

これは11月10日専用の処理ですが、あくまで背景色を設定する方法のひとつです。

おそらく、次に必要な処理は、他の休日に対応する事だと思いますが、
例えば、
$holiday[]=array("month"=>1,"day"=>1);
$holiday[]=array("month"=>11,"day"=>3);
$holiday[]=array("month"=>11,"day"=>10);
のようにして、休日配列「$holiday」を用意して、その日が休日かどうかを判断する必要です。
$holiday[]="1/1";
$holiday[]="11/3";
$holiday[]="11/10";
のように月日を編集したものでもかまわないと思います。
この$holidayを設定するのが手作業か、自動かなど、さらに処理は増えてくると思います。

こんな方法でどうでしょうか。

print("<td>".($i-$first_day)."</td>");

のところを次のようにします。

if(($today_month==11) and ($i-$first_day==10)){
$bgcolor="red";
}else{
$bgcolor="";
}
print("<td bgcolor=\"".$bgcolor."\">".($i-$first_day)."</td>");

これは11月10日専用の処理ですが、あくまで背景色を設定する方法のひとつです。

おそらく、次に必要な処理は、他の休日に対応する事だと思いますが、
例えば、
$holiday[]=array("month"=>1,"day"=>1);
$holiday[]=arra...続きを読む

Q【Excel】2E123という文字列が勝手に2.00E+123に!

いそいでいます。ご存知の方お助けくださいm(__)m

外部からCSV形式のデータをExcelにインポートして使用しています。
その中に、「2E123」・・・のような途中にEの入る型番があるのですが、その部分だけ勝手に「2.00E+123」という形に変更されてしまってとても困っています。
インポート後、セルの書式設定の表示形式を文字列に変更をしても「2E+123」という形で「+」が入ってしまうので、今は仕方なく表示がおかしくなったところを「'2E123」と入力しなおして書き換える操作をしています。
しかし、データ量が半端じゃないので、こんなことに時間を割いていられないのです・・・(×_×;)

どこか設定で2E123→2.00E+123となってしまう機能をOFFにすることはできないでしょうか?
もしくは、簡単に変更することはできないでしょうか?

ご存知の方よろしくおねがいします!

Aベストアンサー

インポートするときに、型番のところを文字列で設定してインポートすればいいと思います。
または、セルの書式設定で文字列にしてから、
貼り付けで入れるかですね。

Qアクティブ(カレント)レコードに条件付き書式で

アクティブ(カレント)レコードに条件付き書式で色を付けるには?

フォームに乗ってるサブフォームに対して、レコードが移動したら条件付き書式をつけたいです。

サブフォームのCurrentイベントに


//////////////////////////////////////////////////////
Private Sub Form_Current()
Dim avarContorol As Variant
Dim iLoop As Integer
Dim ctl As Control
Dim mystr As String
Dim i As Integer

ReDim avarControl(Me.Controls.Count - 1)

For i = 0 To Me.Controls.Count - 1
avarControl(i) = Me.Controls(i).Name
Next i

For iLoop = 0 To UBound(avarControl)
With Me.Controls(avarControl(iLoop)).FormatConditions
.Delete

'コントロールが文字列型ならダブルコーテーションでくくる
With .Add(acExpression, , "[名前] = """ & Me.Controls("名前") & "")
.BackColor = 255
End With
End With
Next iLoop

End Sub
//////////////////////////////////////////////////////

としたのですが、エラーにもならないけど、色もつかないです。
予想としては赤になると思ったのですが・・・

しかも、2010は設定した条件付き書式をフォームビューでは確認できないようです。
フォームビューで設定した条件付き書式は保存されないから、デザインビューで確認しようとしても、見れません。

サブフォームに対して行おうとしているからできないのでしょうか?
どこが間違ってるか教えていただけますか?

ご回答よろしくお願いします。

アクティブ(カレント)レコードに条件付き書式で色を付けるには?

フォームに乗ってるサブフォームに対して、レコードが移動したら条件付き書式をつけたいです。

サブフォームのCurrentイベントに


//////////////////////////////////////////////////////
Private Sub Form_Current()
Dim avarContorol As Variant
Dim iLoop As Integer
Dim ctl As Control
Dim mystr As String
Dim i As Integer

ReDim avarControl(Me.Controls.Count - 1)

For i = 0 To Me.Controls.Count - 1
avarControl(i)...続きを読む

Aベストアンサー

まず、間違ってそうな箇所は

"[名前] = """ & Me.Controls("名前") & ""

"[名前] = """ & Me.Controls("名前") & """"

後、条件付き書式を設定できないコントロールは存在しないのでしょうか?


以下、総括的に


カレント行全体の背景色を変えてハイライト表示させるには?
http://www.tsware.jp/tips/tips_392.htm

この内容に合わせるために、苦労されていたのでしょうか

配列にコントロールを求めて・・・されていますが、一気にやられてみてはどうでしょう
例えば、

Private Sub Form_Current()
  Dim ctl As Control

  For Each ctl In Me.Section(acDetail).Controls
    With ctl
      Select Case .ControlType
        Case acTextBox, acComboBox
          With .FormatConditions
            .Delete
            With .Add(acExpression, , "[名前] = """ & Me.名前 & """")
              .BackColor = 255
            End With
          End With
      End Select
    End With
  Next
End Sub

背景色を変えるのは、「詳細」に配置したテキストボックス/コンボボックスだと思うので、
Me.Controls ではなく「詳細」に絞った Me.Section(acDetail).Controls を処理範囲とします。
で、コントロールが、テキストボックス/コンボボックスなら条件付き書式を・・・・

また、以下の様な方法もあります。
フォーム読み込み時に、基本となる条件付き書式を設定しておいて、
(設定したコントロールの目印として Tag に文字列を設定)
レコード移動時では、条件を書き換える・・・・
( Tag に文字列が設定されているコントロールを探し出して・・・)

Private Const SetFMTC As String = "SetFormatConditions"

Private Sub Form_Load()
  Dim ctl As Control

  For Each ctl In Me.Section(acDetail).Controls
    With ctl
      Select Case .ControlType
        Case acTextBox, acComboBox
          With .FormatConditions
            .Delete
            With .Add(acExpression, , "[名前] = """"")
              .BackColor = 255
            End With
          End With
          .Tag = SetFMTC
      End Select
    End With
  Next
End Sub

Private Sub Form_Current()
  Dim ctl As Control

  For Each ctl In Me.Section(acDetail).Controls
    If (ctl.Tag = SetFMTC) Then
      ctl.FormatConditions(0).Modify acExpression, , "[名前] = """ & Me.名前 & """"
    End If
  Next
End Sub


なお、一般的なのか・・・・良く使う方法は

不可視のテキストボックス「txt1」を設置して、
読み込み時にでも、条件付き書式 [名前] = [txt1] を設定しておき、
レコード移動時に、Me.txt1 = Me.名前 を代入
これらをする事で、条件付き書式部分を書き換えなくても実現できるものになります。

Private Sub Form_Load()
  Dim ctl As Control

  For Each ctl In Me.Section(acDetail).Controls
    With ctl
      Select Case .ControlType
        Case acTextBox, acComboBox
          With .FormatConditions
            .Delete
            With .Add(acExpression, , "[名前] = [txt1]")
              .BackColor = 255
            End With
          End With
      End Select
    End With
  Next
End Sub

Private Sub Form_Current()
  Me.txt1 = Me.名前
End Sub


以下、まとめて書かれていますので参考になると思います

カレント行の背景色の変更 その2
http://hatenachips.blog34.fc2.com/blog-entry-20.html

カレント行の背景色の変更
http://hatenachips.blog34.fc2.com/blog-entry-18.html


また、条件付き書式を使わない方法も紹介されてます。

カレント行の背景色の変更 その3
http://hatenachips.blog34.fc2.com/blog-entry-21.html

まず、間違ってそうな箇所は

"[名前] = """ & Me.Controls("名前") & ""

"[名前] = """ & Me.Controls("名前") & """"

後、条件付き書式を設定できないコントロールは存在しないのでしょうか?


以下、総括的に


カレント行全体の背景色を変えてハイライト表示させるには?
http://www.tsware.jp/tips/tips_392.htm

この内容に合わせるために、苦労されていたのでしょうか

配列にコントロールを求めて・・・されていますが、一気にやられてみてはどうでしょう
例えば、

Private Sub Form_Current()
  D...続きを読む

QExcel RANK関数 条件に一致する数値の順位

EXCELのRANK関数で条件に一致する数値の順位を出したいのですが、そのような関数は出来ますか?
A列 B列 C列(RANK)
A  10  1
B 9 1
A 8 2
B 7 2
A 6 3
B 5 3

A列とB 列からC列を求めたいのですが、できますか?

Aベストアンサー

昨日同じような質問がありました。
http://oshiete1.goo.ne.jp/qa3850349.html
ANo.2の方の回答が参考になると思います。


人気Q&Aランキング

おすすめ情報